VBA Satır Kopyalama Hk.

[üveyin]

Arkadaşlar sayfa4 deki birleştirilmiş (D2 ile X2 arası satırlardan)kopyalanan veriyi sayfa2 deki (E1 ile F1 birleştirilmiş hücreye yapıştırmak istiyorum) aşağıdaki kod ile yapmak istedim ama hücre boyutu farklı olduğundan bu işlemi yapmıyor. bu işlemi bir kaç satırda yapmak istiyorum hücre ve satırlar noları yada boyutları değişecek sadece Yukarıda anlattığım işlemi yapmak için yardımcı olabilirmisiniz teşekkürler şimdiden.

'başlık eklemek
Sayfa4.Select
Range("D2:X2").Select
Selection.Copy
Sayfa2.Select
Range("E1:F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Muzaffer Ali]

Merhaba.

Sayfa4.Range("D2:E2").Copy Sayfa2.Range("E1")
Sayfa2.Range("E1").Value = Sayfa2.Range("E1").Value

 

[üveyin]

tşk ederim sizden iki isteğim daha olacak bu kodu çalıştıdığımda sayfa2 deki hücre rengi aynı kalmasını istiyorum birde bu kodu aynı sayfalar da farklı sutun ve hücrelerde kullanabilirmiyim.

 

[Muzaffer Ali]

Yeni kodlar

Sub test()
    Dim incol As Long
    Dim foncol As Long
    
    incol = Range("E1").Interior.ColorIndex
    foncol = Range("E1").Font.ColorIndex
    
    Sayfa1.Range("D2:E2").Copy Sayfa2.Range("E1")
    Sayfa2.Range("E1").Value = Sayfa2.Range("E1").Value
    
    Range("E1").Interior.ColorIndex = incol
    Range("E1").Font.ColorIndex = foncol
End Sub

Diğer sorunuzun cevabı için deneme yapıp görebilirsiniz.

 

[üveyin]

çok tşk ederim yardımlarınız için