Aynı Sayıyı Alt Alta Yazdırma

(28/12/2020, 22:24)berduş yazdı: sheets1 yerine yazılmasını istediğiniz sayfanın adını yazacaksınız
veriler hangi sayfaya yazılacak

Sayfa2 ye yazılacak

veriler zaten sayfa2de değil mi
çalışmanızın son halini ekleyip hangi sayfadaki verilerin hangi sayfaya yazılması gerektiğini belirtir misiniz?

oldu hocam, tamamdır.

---

TEŞEKKÜRLER

Rica ederim
İyi calismalar

kod aşağıdaki gibi de düzenlenebilir
Not: sayfa adları yine sizin çalışmanızdaki sayfa adlarına göre düzenlenecek

Private Sub CommandButton1_Click()

Dim SonStr As Long

Dim KaynakSyf As Worksheet

Dim HedefSyf As Worksheet



Set KaynakSyf = Worksheets("sayfa2")

Set HedefSyf = Worksheets("Sayfa1")



SonStr = KaynakSyf.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

HedefSyf.Cells.ClearContents

For xStr = 4 To SonStr

    

    With HedefSyf

        .[a1] = "Satır Etiketleri"

        TmpSonStr = .Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1

        .Range("A" & TmpSonStr & ":A" & TmpSonStr + KaynakSyf.Range("B" & xStr) - 1) = KaynakSyf.Range("A" & xStr)

    End With

Next xStr

MsgBox "Bitti"

End Sub

Berduş hocam sanki alttaki gibi dahaiyi olur gibi.Döngü içine with ve .[A1] gereksiz olmuş bence.

With HedefSyf

        .[a1] = "Satýr Etiketleri"

        For xStr = 4 To SonStr

            TmpSonStr = .Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1

            .Range("A" & TmpSonStr & ":A" & TmpSonStr + KaynakSyf.Range("B" & xStr) - 1) = KaynakSyf.Range("A" & xStr)

        Next xStr

  End With