tablolar arasında transfer hk.yardım

[muhasebeciyiz]

ekli dosyamda belirtmiş olduğum ve işaretlediğim satırları diğer sayfadaki tabloya aktarabilmem için makro çözümüne ihtiyacım vardır.

Yardımlarınızı bekliyor ve saygılarımı sunuyorum.

 

[hamitcan]

Aşağıdaki kodu bir butona bağlayın.

Private Sub CommandButton1_Click()
Sayfa4.[b16:ag44,ai16:az44] = Empty
c = 14
For t = 16 To 44
If Sayfa6.Cells(t, "b") <> "" Then
c = c + 2
Sayfa4.Range("b" & c & ":ag" & c) = Sayfa6.Range("b" & t & ":ag" & t).Value
Sayfa4.Range("ai" & c & ":az" & c) = Sayfa6.Range("ag" & t & ":az" & t).Value
End If
Next
End Sub

 

[muhasebeciyiz]

sayın hamitcan emekleriniz için çok teşekkür ederim.

seçili olanları aktarım yaparken sıralı olarak alt alta getirmemiz gerekiyor.şöyleki 1,2,3,13,14,15 seçip aktarım yaptığım zaman aktarılan tabloda 1,2,3'ler yukarda kaldı 13,14,15 en alt kısımda kaldığı için arada boşluk kalmıştır.Boşluk kalmadan seçilenleri tabloda alt alta dizebilmek mümkünmüdür.

saygılarımla.

 

[hamitcan]

Kodu güncelledim.

 

[muhasebeciyiz]

teşekkürler sağolun hamitcan bey .