- Katılım
- 10 Ağustos 2023
- Mesajlar
- 28
- Excel Vers. ve Dili
-
Microsoft 365 Tr-En 64 Bit
Microsoft Office 2013 Tr-En 64 Bit
Herkese Merhaba Kolay Gelsin,
Öncelikle Kopyalama kodu çalışıyor ama butona her basıldığı zaman emrettiği sütuna gidiyor ama altına nasıl kopyalama yapıcam bilmiyorum yardım ederseniz çok sevinirim
mesela
Sub yapıstır()
Sheets("Sayfa4").Select
Range("A22:J25").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("A22").Select
ActiveSheet.Paste
End Sub
bu kod ile copy paste oluyor evet doğru
Sub ekle()
Dim S1 As Worksheet, S3 As Worksheet, Satır As Long
Set S1 = Sheets("Sayfa4")
Set S3 = Sheets("Sayfa1")
Satır = S3.Cells(S3.Rows.Count, 1).End(3).Row + 1
S3.Cells(Satır, "A") = S1.Range("A1")
S3.Cells(Satır, "B") = S1.Range("B1")
S3.Cells(Satır, "C") = S1.Range("C1")
S3.Cells(Satır, "D") = S1.Range("D1")
S3.Cells(Satır, "E") = S1.Range("E1")
S3.Cells(Satır, "F") = S1.Range("F1")
S3.Cells(Satır, "G") = S1.Range("G1")
S3.Cells(Satır, "H") = S1.Range("H1")
S3.Cells(Satır, "I") = S1.Range("I1")
S3.Cells(Satır, "J") = S1.Range("J1")
bu kod ile artarak devam ediyor ama bu kodda sadice sütun hücre verisi geliyor sütundaki istediğim özellikler gelmiyor
Öncelikle Kopyalama kodu çalışıyor ama butona her basıldığı zaman emrettiği sütuna gidiyor ama altına nasıl kopyalama yapıcam bilmiyorum yardım ederseniz çok sevinirim
mesela
Sub yapıstır()
Sheets("Sayfa4").Select
Range("A22:J25").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("A22").Select
ActiveSheet.Paste
End Sub
bu kod ile copy paste oluyor evet doğru
Sub ekle()
Dim S1 As Worksheet, S3 As Worksheet, Satır As Long
Set S1 = Sheets("Sayfa4")
Set S3 = Sheets("Sayfa1")
Satır = S3.Cells(S3.Rows.Count, 1).End(3).Row + 1
S3.Cells(Satır, "A") = S1.Range("A1")
S3.Cells(Satır, "B") = S1.Range("B1")
S3.Cells(Satır, "C") = S1.Range("C1")
S3.Cells(Satır, "D") = S1.Range("D1")
S3.Cells(Satır, "E") = S1.Range("E1")
S3.Cells(Satır, "F") = S1.Range("F1")
S3.Cells(Satır, "G") = S1.Range("G1")
S3.Cells(Satır, "H") = S1.Range("H1")
S3.Cells(Satır, "I") = S1.Range("I1")
S3.Cells(Satır, "J") = S1.Range("J1")
bu kod ile artarak devam ediyor ama bu kodda sadice sütun hücre verisi geliyor sütundaki istediğim özellikler gelmiyor