veri aktarma

[airborne]

s.a.

Tahakkuk diye bir belgem var. bundaki kodları tahakkuk-teslim diye belgeme aktarma istiyorum. makro ile nasıl yapabilirim. Yardımlarınız için şimdiden teşekkürler.

Tahakkuktaki bilgiler

D11 E11 F11 H11 I11 J11 K11 L11 M11 N11 O11 Q11 R11

13 1 32 62 9 2 1 0 1 3 2 1 1


Tahakkuk Teslimde aktarılacak olan yer

DEF birleştirilmiş hücresine

aktarılacak yalnız yukarıdaki Tahakkuk bilgileri aktarıldığında kodlar arasında nokta olacak şekilde aktarılacak ve her yeni oluşturduğum tahakkuktaki bilgiler tahakkuk teslimde alt alta gelecek şekilde olacak. Nasıl bir makro yazılabilir

 

[N.Ziya Hiçdurmaz]

Yanıt

İki kitapta açık olmalı

Sub AKTAR()
Dim SON As Integer
SON = Workbooks("tahakkuk-teslim").Sheets("tahakkuk-teslim").Cells(65536, "D").End(3).Row + 1
Workbooks("tahakkuk-teslim").Sheets("tahakkuk-teslim").Cells(SON, "D") = Workbooks("tahakkuk").Sheets("tahakkuk").[D11] & "." & [ E11] & "." & [ F11] _
& "." & [ H11] & "." & [I11] & "." & [ J11] & "." & [ K11 ] & "." & [L11] & "." & [ M11] & "." & [ N11] & "." & [ O11] & "." & [ Q11] & "." & [ R11]
End Sub

 

[airborne]

s.a.

teşekkür ederim hocam. mantığını biraz açıklayabilirmisiniz. mesela tahakkuktan verileri alırken buların yanına s1,s2 ve s3 hücrelarini tahakkuk-teslimde g hüresine nasıl atabiliriz

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil kullanınız

Sub AKTAR()
Dim SON As Integer
Set K1 = Workbooks("tahakkuk").Sheets("tahakkuk")
Set K2 = Workbooks("tahakkuk-teslim").Sheets("tahakkuk-teslim")
SON = K2.Cells(65536, "D").End(3).Row + 1
K2.Cells(SON, "D") = K1.[D11] & "." & [ E11] & "." & [ F11] _
& "." & [ H11] & "." & [I11] & "." & [ J11] & "." & [ K11 ] & "." & [L11] & "." & [ M11] & "." & [ N11] & "." & [ O11] & "." & [ Q11] & "." & [ R11]
K2.Cells(SON, "G") = K1.[S1] & "." & [ S2] & "." & [ S3]
End Sub