Sayfalardaki Son Satır Bilgisini Bir Sayfada Toplama

[adamar]

Merhabalar,

Yan yana olan sayfalardaki verilerin son satır bilgilerini ana sayfaya getirebileceğim bir macro yapılabiliyormu.

Yardımlarınız için şimdiden teşekür ederim.

 

[Ömer]

Merhabalar,

Yan yana olan sayfalardaki verilerin son satır bilgilerini ana sayfaya getirebileceğim bir macro yapılabiliyormu.

Yardımlarınız için şimdiden teşekür ederim.

Merhaba,

Bu şekilde deneyin.

Sub SonSatirlar()
 
    Dim i As Integer, sat As Integer
    
    Sheets("AnaSayfa").Select
    Range("A:A").ClearContents
    
    sat = 1
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "AnaSayfa" Then
                Cells(sat, "A") = .Cells.Find("*", , , , _
                                xlByRows, xlPrevious).Row
                sat = sat + 1
            End If
        End With
    Next i
    
End Sub

.

 

[adamar]

Merhaba,

Bu şekilde deneyin.

Sub SonSatirlar()
 
    Dim i As Integer, sat As Integer
    
    Sheets("AnaSayfa").Select
    Range("A:A").ClearContents
    
    sat = 1
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "AnaSayfa" Then
                Cells(sat, "A") = .Cells.Find("*", , , , _
                                xlByRows, xlPrevious).Row
                sat = sat + 1
            End If
        End With
    Next i
    
End Sub

.

merhaba hocam

sayfalardaki son satırın tamamını kopyalamak istiyorum bunun için ne yapmalıyım

 

[adamar]

Sayfalardaki son satırların tamamını almak istiyorum
bu makro ile tek bir sütun değerleri geldi

 

[Ömer]

merhaba hocam

sayfalardaki son satırın tamamını kopyalamak istiyorum bunun için ne yapmalıyım

Bu şekilde deneyin. Mavi işaretli bölüme AnaSayfa da silinecek aralığı tanımlayabilirsiniz. Kırmızı işaretli bölümü verilerin yazılacağı ilk satırı belirleyebilirsiniz.

Sub SonSatirlar()
 
    Dim i As Integer, sat As Integer
 
    Sheets("AnaSayfa").Select
    [COLOR=blue]Cells[/COLOR].ClearContents
 
    sat = [COLOR=red]1[/COLOR]
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "AnaSayfa" Then
                .Rows(.Cells.Find("*", , , , xlByRows, _
                    xlPrevious).Row).Copy Cells(sat, "A")
                sat = sat + 1
            End If
        End With
    Next i
 
End Sub

.