Çalışma kitabının sayfalarındaki belli bir satırdaki verileri bir sayfaya kopyalama

[ANKARA1974]

İyi akşamlar;

Çalışma kitabının sayfalarındaki belli bir satırdaki(örneğin B1 hücresindeki) verilerin bir sayfaya kopyalanması yapılabilir mi?

 

[kemalist]

Satır ve sütun nosu ne olacak

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    say = 1
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "ANA_TOPLAM" Then
            sheets("ANA_TOPLAM").Cells(say, "A") = Sheets(i).Range("B1")
            say = say + 1
        End If
    Next i
End Sub

. . .

 

[ANKARA1974]

Çok teşekkür ederim. Tam istediğim gibi olmuş.
Kolay gelsin.