+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Aynı Sayıyı Alt Alta Yazdırma (/konu-ayni-sayiyi-alt-alta-yazdirma.html)
RE: Aynı Sayıyı Alt Alta Yazdırma - enginbeyy - 28/12/2020
(28/12/2020, 22:24)berduş yazdı: sheets1 yerine yazılmasını istediğiniz sayfanın adını yazacaksınızSayfa2 ye yazılacak
veriler hangi sayfaya yazılacak
RE: Aynı Sayıyı Alt Alta Yazdırma - berduş - 28/12/2020
veriler zaten sayfa2de değil mi
çalışmanızın son halini ekleyip hangi sayfadaki verilerin hangi sayfaya yazılması gerektiğini belirtir misiniz?
RE: Aynı Sayıyı Alt Alta Yazdırma - enginbeyy - 28/12/2020
oldu hocam, tamamdır.
TEŞEKKÜRLER
RE: Aynı Sayıyı Alt Alta Yazdırma - berduş - 28/12/2020
Rica ederim
İyi calismalar
RE: Aynı Sayıyı Alt Alta Yazdırma - berduş - 28/12/2020
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
RE: Aynı Sayıyı Alt Alta Yazdırma - feraz - 29/12/2020
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