Başka sayfadaki boş satıra kopyalamak

Katılım
27 Ekim 2017
Mesajlar
97
Excel Vers. ve Dili
2016 TÜRKÇE
SAyfa 1 deki a3 ve b3 deki hücre bilgisini
Sayfa2deki ilk boş satıra nasıl kopyalarız?Diyelimki sayfa 2 deki ilk boş satır a8 ve b8 ise oraya kopyalıcak,ilk boş satır a10 ve b10 ise oraya kopyalıcak.Bunu nasıl yaparız?
Örnek dosya ekledim..
sayfa 1deki ali ve veli bilgisini yukarda anlattıgım şekilde sayfa2 deki boş satır hangisi ise oraya kopyalaasın istiyorum
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Eğer amacınız Sayfa1'deki verileri Sayfa2'ye aktarmaksa aşağıdaki kodları kullanabilirsiniz.

Sadece Sayfa1'deki A1 ve B1 hücrelerini kopyalamak isterseniz, yine aşağıdaki kodda yanıtı bulabilirsiniz.

Kod:
Sub Aktar()

    Dim i   As Long, _
        j   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    j = s2.Cells(Rows.Count, "A").End(3).Row
    
    For i = 1 To s1.Cells(Rows.Count, "A").End(3).Row
        j = j + 1
        s1.Range("A" & i & ":B" & i).Copy s2.Cells(j, "A")
    Next i
    
    Set s1 = Nothing
    Set s2 = Nothing
    
End Sub
 
Katılım
27 Ekim 2017
Mesajlar
97
Excel Vers. ve Dili
2016 TÜRKÇE
@byfika
Sizin yöntem tüm hücreleri kopyalıyor...
Ben mesela sadece a3 ve b3 hücrelerini sayfa2 de bulunan ilk boş satır hangisi ise ona kopyalasın istiyorum.
 
Katılım
27 Ekim 2017
Mesajlar
97
Excel Vers. ve Dili
2016 TÜRKÇE
Merhaba,

Eğer amacınız Sayfa1'deki verileri Sayfa2'ye aktarmaksa aşağıdaki kodları kullanabilirsiniz.

Sadece Sayfa1'deki A1 ve B1 hücrelerini kopyalamak isterseniz, yine aşağıdaki kodda yanıtı bulabilirsiniz.

Kod:
Sub Aktar()

    Dim i   As Long, _
        j   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
   
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
   
    j = s2.Cells(Rows.Count, "A").End(3).Row
   
    For i = 1 To s1.Cells(Rows.Count, "A").End(3).Row
        j = j + 1
        s1.Range("A" & i & ":B" & i).Copy s2.Cells(j, "A")
    Next i
   
    Set s1 = Nothing
    Set s2 = Nothing
   
End Sub
sADECE A3 VE B3 DE bulunan veriyi sayfa deki ilk boş satır o an hangisi ise ona atsın istiyorum..
Sizin bu yöntemde a1 ve b1 dekileride kopyalıyor?
 
Katılım
27 Ekim 2017
Mesajlar
97
Excel Vers. ve Dili
2016 TÜRKÇE
@byfikaA ÇOK TEŞEKKÜR EDERİM HALLETTİM.S
Yazdıgınz kodda a3:b3 yazınca istedigim gibi oldu...
Son olarak bir de kopyalamak istiyor musunuz uyarı pencerresi çıkıp onay verdikten sonra kopyalamak istersem onu da ekler misin..Yanlışlıkla butona basınca kopyalasın istemiyorum çünkü
 

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
493
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2007 / Tr
Merhabalar,
Yanıt ve istediğiniz yeni gördüm. Aktar butonuna basınca mesaj box çıkacak Evet seçerseniz aktarma olacak, hayır seçerseniz aktarma olmayacak. Ekte hazır olanı inceler misiniz? Zannediyorum istediğiniz gibi.
İyi çalışmalar....
 

Ekli dosyalar

Son düzenleme:
Katılım
27 Ekim 2017
Mesajlar
97
Excel Vers. ve Dili
2016 TÜRKÇE
Son bir soru...
Ben yapıştırma işlemini yaparken direk yapıştırınca BAŞV hatası veriyor
Yapıştırma işlemini yaparken "değerler"seçenegini seçenerek yapıştırdığımda bu sorun olmuyor...
O nedenle hazırladıgınız koda ne eklemeliyiz bunu da yazar mısınız?
 

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
493
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2007 / Tr
Son bir soru...
Ben yapıştırma işlemini yaparken direk yapıştırınca BAŞV hatası veriyor
Yapıştırma işlemini yaparken "değerler"seçenegini seçenerek yapıştırdığımda bu sorun olmuyor...
O nedenle hazırladıgınız koda ne eklemeliyiz bunu da yazar mısınız?
Buradaki sorunuzda ne demek istediğinizi anlamadım. Lütfen neyi nereye yapıştırınca BAŞV hatası veriyor, Daha açık yazarmısınız?
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
bende bu şekilde neyse teşekkür ederim Haluk Bey
Benim resimde gösterdiğim yerle, sizin resimde gösterdiğiniz yerler farklı.

Ayrıca, düzenleme ve silme işlemleri mesajı yazdıktan sonra 72 saat için geçerlidir ....... neyse, iyi günler.

.
 
Üst