Kopyalanan Sütun Buton İle Artarak Alt Sütuna Getirmek

[Meteynclk]

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

 

[bmutlu966]

ilgili satırları aşağıdaki gibi değiştirip deneyin.

S1.Range("A1").Copy S3.Cells(Satır, "A")
S1.Range("B1").Copy S3.Cells(Satır, "B")
S1.Range("C1").Copy S3.Cells(Satır, "C")
S1.Range("D1").Copy S3.Cells(Satır, "D")
S1.Range("E1").Copy S3.Cells(Satır, "E")
S1.Range("F1").Copy S3.Cells(Satır, "F")
S1.Range("G1").Copy S3.Cells(Satır, "G")
S1.Range("H1").Copy S3.Cells(Satır, "H")
S1.Range("I1").Copy S3.Cells(Satır, "I")
S1.Range("J1").Copy S3.Cells(Satır, "J")

 

[Meteynclk]

çoook teşekkür ederim doğru oldu.

 

[Korhan Ayhan]

Sütunlarınız ardışık gidiyorsa aşağıdaki satır yeterli olacaktır.

S1.Range("A1:J1").Copy S3.Cells(Satır, "A")

 

[Meteynclk]

Cidden Çok teşekkür ederim oda oldu ama bunları öğrenmem çok daha iyi oldu işiniz rast gitsin.

 

[Meteynclk]

ilgili satırları aşağıdaki gibi değiştirip deneyin.

S1.Range("A1").Copy S3.Cells(Satır, "A")
S1.Range("B1").Copy S3.Cells(Satır, "B")
S1.Range("C1").Copy S3.Cells(Satır, "C")
S1.Range("D1").Copy S3.Cells(Satır, "D")
S1.Range("E1").Copy S3.Cells(Satır, "E")
S1.Range("F1").Copy S3.Cells(Satır, "F")
S1.Range("G1").Copy S3.Cells(Satır, "G")
S1.Range("H1").Copy S3.Cells(Satır, "H")
S1.Range("I1").Copy S3.Cells(Satır, "I")
S1.Range("J1").Copy S3.Cells(Satır, "J")

Şuan Hepsi Okey de sadice sütun geliyor biçimlendirme hangi kod ile oluyor peki çağırdığımda sütun ne ise o küçük şekilde geliyor da ? yardımcı olabilir misiniz ?

 

[Korhan Ayhan]

.Copy kodu ile hücredeki tüm özellikleri aktarmış olursunuz.

Ek olarak profilinizde yazan ofis sürümü ve dili bölümüne rica etsem kullandığınız ofis sürümünü ve dilini yazabilirmisiniz.

 

[Meteynclk]

.Copy kodu ile hücredeki tüm özellikleri aktarmış olursunuz.

Ek olarak profilinizde yazan ofis sürümü ve dili bölümüne rica etsem kullandığınız ofis sürümünü ve dilini yazabilirmisiniz.

Başka sayfa da height ve width farklı ama direkt gelmiyor seçildiği gibi

 

[Korhan Ayhan]

Bu değerler için ayrı işlem yapmanız gerekir.

 

[Meteynclk]

Bu değerler için ayrı işlem yapmanız gerekir.

With Range("h" & satir)
Satır.Top = .Top + 1
Satır.Left = .Left + 1
Satır.Height = .Height - 1
Satır.Width = .Width - 1


Şöyle bi Kod buldum ama çalıştıramadım direkt yazdığımız kodların altına yazdım.

 

[Korhan Ayhan]

Ek olarak profilinizde yazan ofis sürümü ve dili bölümüne rica etsem kullandığınız ofis sürümünü ve dilini yazabilirmisiniz.

 

[Meteynclk]

worksheet 2013 ve visiual

 

[Meteynclk]

S3.Rows("A1:J1").RowHeight = 39
S3.Rows("23:23").RowHeight = 39


kodu buldum ama sadice belli yere uyguluyor ve düzeltme yaptığım A1:J1 yazınca hata veriyor

 

[Korhan Ayhan]

Paylaştığınız ofis sürümü bilgisinde sanırım bir problem var. Ayrıca bu bilgiyi profilinizde yazan excel word kodlama bilgisinin yerine yazmalısınız.

Örnek olarak bizlerin profiline bakarak kendi sürüm bilginizi profilinize yazarak güncelleyebilirsiniz.