Başka sayfadaki boş satıra kopyalamak

[muyat]

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

 

[Necdet]

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.

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

 

[byfika]

Merhabalar;
Alternatif olarak inceleyebilirsiniz.
İyi çalışmalar....

 

[muyat]

@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.

 

[muyat]

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.

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?

 

[papatya35]

takipte kalayım

 

[muyat]

@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]

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....

 

[muyat]

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?

 

[Haluk]

takipte kalayım

Konuya ait 1. mesajın sağ üst köşesindeki "Takip et" butonu bu işe yarıyor ....

.

 

[papatya35]

Konuya ait 1. mesajın sağ üst köşesindeki "Takip et" butonu bu işe yarıyor ....

.

teşekkür ederim bilmiyordum mesaj da silebiliyor muyuz peki

 

[Haluk]

teşekkür ederim bilmiyordum mesaj da silebiliyor muyuz peki

 

[byfika]

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?

 

[papatya35]

Ekli dosyayı görüntüle 197055

Ekli dosyayı görüntüle 197055

bende bu şekilde neyse teşekkür ederim Haluk Bey

 

[Haluk]

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.

.