KOPYALA SAYFAYI BUL O SAYFANIN SON SATIRINA YAPIŞTIR.

[bluesexcel]

Merhaba hocalarım.. Sizden bir ricam var şimdi benim elimde 30 isim var ve her biri için ayrı sayfalar yaptım ( Örnek: Ahmet, mehmet, hasan, hüseyin )
şimdi ben bunları ilk sayfada liste olarak tanımladım listede bu isimler yer alıyor benim yapmak istediğim şu. A1 Hücresindeki listeden ahmeti seçtim B1 hücresine tarih yazdım C1 hücresine bu gün ki kazancını yazdım D1 hücresine aldığı parayı yazdım E1 hücresinde kalanını yazdım. Bunları tek bir buton ile ahmeti seçtiğimde B1,D1,E1 (ARALIKLI HÜCRELER SEÇİMLİ) Hücrelerini kopyalayıp alttaki sayfalardan ahmeti bulup onun sayfasında A1, B1, C1 hücrelerine yapıştırmasını istiyorum lakin ben her ekle butonuna bastığımda bir sonraki satıra ekleyerek devam etmeli yani bir sonraki eklemeyi A2,B2,C2 Diye alt satırdan devam etmeli. yarımcı olabilirseniz minettar kalırım mümkün ise dosya olarak yollamayın lütfen.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub Sayfaya_Aktar()

    Dim syf As Worksheet, son As Long
    
    If Range("A1") = "" Then Exit Sub
    
    On Error GoTo atla
    Set syf = Sheets(Range("A1").Text)
    son = syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    Range("A1:E1").Copy syf.Cells(son, "A")
    
    MsgBox "Aktarıldı.", vbInformation
    Exit Sub
atla:
    MsgBox "Sayfayı Bulamadım.", vbInformation
    
End Sub

 

[bluesexcel]

Merhaba,

Deneyiniz.

Sub Sayfaya_Aktar()

    Dim syf As Worksheet, son As Long
   
    If Range("A1") = "" Then Exit Sub
   
    On Error GoTo atla
    Set syf = Sheets(Range("A1").Text)
    son = syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
   
    Range("A1:E1").Copy syf.Cells(son, "A")
   
    MsgBox "Aktarıldı.", vbInformation
    Exit Sub
atla:
    MsgBox "Sayfayı Bulamadım.", vbInformation
   
End Sub

Allah razı olsun yardımcı olduğun için lakin çalışmadı hocam şimdi konu şu benim bir listem var listede başka sayfadan firma isimlerim var yani B5 hücresine firma isimleri geliyor ( Örnek: excelweb firması) ... Şimdi ben bu firma isimini seçip yanındaki kutucukları doldurduğumda yanındaki örnek: C5, D5,E5,G5 hücresinin içerisindeki bilgileri kopyalayıp... Listeden seçtiğim firmanın adına (excelweb firmasına) açılmış olan sayfaya kopyalamalı ama 2. satırdan sonra kopyalamaya başlamalı ve 2. defa kopyalama yapacağı zaman önceki yazdığını silmeden bir alt satıra eklemeye devam etmeli. şimdiden teşekkür ederim tekrardan ilginiz için

 

[bluesexcel]

Merhaba,

Deneyiniz.

Sub Sayfaya_Aktar()

    Dim syf As Worksheet, son As Long
  
    If Range("A1") = "" Then Exit Sub
  
    On Error GoTo atla
    Set syf = Sheets(Range("A1").Text)
    son = syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
  
    Range("A1:E1").Copy syf.Cells(son, "A")
  
    MsgBox "Aktarıldı.", vbInformation
    Exit Sub
atla:
    MsgBox "Sayfayı Bulamadım.", vbInformation
  
End Sub

sayfaara macrosu çalıştırılamıyor macro bu çalışma sayfasında olmayabilir uyarısı veriyor ama macro ayarlarım açık.

 

[bluesexcel]

Merhaba,

Deneyiniz.

Sub Sayfaya_Aktar()

    Dim syf As Worksheet, son As Long
   
    If Range("A1") = "" Then Exit Sub
   
    On Error GoTo atla
    Set syf = Sheets(Range("A1").Text)
    son = syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
   
    Range("A1:E1").Copy syf.Cells(son, "A")
   
    MsgBox "Aktarıldı.", vbInformation
    Exit Sub
atla:
    MsgBox "Sayfayı Bulamadım.", vbInformation
   
End Sub

HOCAM ÇALIŞTI UFAK DEFEK AYARLAMALARLA ÇOK TEŞEKKÜR EDERİM AMA BAZI HÜCRELERDE FORMÜLLER İLE DEĞER BULUYOR YANİ 2 SÜTUNUN TOPLAMINI BULAN BİR HÜCRE VAR O YÜZDEN KOPYALADIĞI SAYFADA #DEĞER HATASI VERİYOR BEN FORMÜLLERİ DEĞİLDE SADECE O SÜTUNDAKİ METİN YADA SAYILARI ALMASINI İSTİYORUM MESELA 1 ADET DE LİSTE VAR ONUDA LİSTE OLARAK ALMIŞ TEŞEKKÜR EDERİM ŞİMDİDEN.

 

[Ömer]

Deneyiniz.

Sub Sayfaya_Aktar()

    Dim syf As Worksheet, son As Long
    
    If Range("A1") = "" Then Exit Sub
    
    On Error GoTo atla
    Set syf = Sheets(Range("A1").Text)
    son = syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
    
    Range("A1:E1").Copy
    syf.Cells(son, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Application.CutCopyMode = False
    Range("A1").Select
    
    MsgBox "Aktarıldı.", vbInformation
    Exit Sub
atla:
    MsgBox "Sayfayı Bulamadım.", vbInformation
    
End Sub

 

[bluesexcel]

Deneyiniz.

Sub Sayfaya_Aktar()

    Dim syf As Worksheet, son As Long
   
    If Range("A1") = "" Then Exit Sub
   
    On Error GoTo atla
    Set syf = Sheets(Range("A1").Text)
    son = syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
   
    Application.ScreenUpdating = False
   
    Range("A1:E1").Copy
    syf.Cells(son, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    Application.CutCopyMode = False
    Range("A1").Select
   
    MsgBox "Aktarıldı.", vbInformation
    Exit Sub
atla:
    MsgBox "Sayfayı Bulamadım.", vbInformation
   
End Sub

HOCAM ELLERİNE SAĞLIK MÜKEMMEL OLDU TEK BİRŞEY DAHA EKLEYEBİLİRSEK SEVİNİRİM MİSAL BEN B1 HÜCRESİNDE BULUNAN TARİHİ DİĞER SAYFADA YİNE A4 HÜCRESİNE KOPYALAMASINI İSTİYORUM TEŞEKKÜRLER.

 

[Korhan Ayhan]

Lütfen mesajınızın tamamında BÜYÜK HARF kullanmayınız.

Forum kurallarını okuyunuz.

 

[bluesexcel]

Lütfen mesajınızın tamamında BÜYÜK HARF kullanmayınız.

Forum kurallarını okuyunuz.

özürdilerim farkında olmamışım daha dikkatli olurum teşekkür ederim.

 

[Ömer]

HOCAM ELLERİNE SAĞLIK MÜKEMMEL OLDU TEK BİRŞEY DAHA EKLEYEBİLİRSEK SEVİNİRİM MİSAL BEN B1 HÜCRESİNDE BULUNAN TARİHİ DİĞER SAYFADA YİNE A4 HÜCRESİNE KOPYALAMASINI İSTİYORUM TEŞEKKÜRLER.

Sorunuz anlaşılmıyor. Daha detaylı açıklayınız.

 

[bluesexcel]

Sorunuz anlaşılmıyor. Daha detaylı açıklayınız.

Hocam merhabalar tekrardan mail adresiniz varmı ben size exceli atayım açıklamalı olarak anlarsınız. teşekkür ederim.

 

[Ömer]

Örnek dosya ekleyerek yapmak istediğiniz burada detaylı açıklayabilirsiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[bluesexcel]

Örnek dosya ekleyerek yapmak istediğiniz burada detaylı açıklayabilirsiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

merhabalar tekrardan... Öncelikle tüm desteğiniz için size teşekkür ederim yine karşınıza bir sorun ile çıktım maalesef

Sorunum şu aktif olan sayfanın ismini değiştirmesi ve o isimi aktif olan sayfaya ve birde belirlediğim bir sayfaya kopyalamasını istiyorum 2 farklı kod denedim ama maalesef 2 kod da çalışmadı debug hatası alıyorum
bu arada yeni sayfa açtıktan sonra bu kodları çalıştırıyorum sayfayı açıyor açtığı aktif sayfanın adını textbox a giriyorum ama sayfa adını değiştirmiyor.

Application.ActiveSheet.Name = txtfirmaname.Value
Application.ActiveSheet.Range("L2").Value = txtfirmaname.Value
Application.Sheets("FİRMALAR").Range("A2").Value = txtfirmaname.Value

buda diğer denediğim kod

ThisWorkbook.ActiveSheet.Name = txtfirmaname.Value
Application.ActiveSheet.Range("L2").Value = txtfirmaname.Value
Application.Sheets("FİRMALAR").Range("A2").Value = txtfirmaname.Value