Sutundaki değeri diğer sutundaki sayı kadar kopyalama

[sarman61]

Arkadaşlar Merhaba,

Sayfa 1'in A sütunundaki girdiyi B sutundaki kadar kopyalayıp Sayfa 2'nin A sutununa kopyalamam gerekiyor.Ekte yapmak istediğimi görebilirsiniz.Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırınız..

Sub Kopyala()
 
Dim S1 As Worksheet, S2 As Worksheet, i As Long, son As Long
 
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
 
S2.Range("A:A").ClearContents
 
For i = 1 To S1.Cells(Rows.Count, "A").End(xlUp).Row
    If S2.Range("A1") = "" Then
        son = 0
    Else
        son = S2.Cells(Rows.Count, "A").End(xlUp).Row
    End If
   S1.Cells(i, "A").Copy S2.Range("A" & son + 1 & ":A" & S1.Cells(i, "B") + son)
Next i
 
End Sub

.

 

[İhsan Tank]

ömer hocam bunu formülle nasıl yapabiliriz.

 

[sarman61]

Ömer hocam çok teşekkürler.Çok işe yarıyacak.