Sayfalar arası veri aktarımı

[penguen6363]

Selam Arkadaşlar

Dosyamda 2 çalışma sayfası var il sayfa veri sayfası 2.sayfada tablo benim yapmak istediğim 2 sayfaya isimlerin ve ilgili tarihlerin karşısına fazla mesaileri aktarmak.
Teşekür ederim.

 

[halit3]

Selam Arkadaşlar

Dosyamda 2 çalışma sayfası var il sayfa veri sayfası 2.sayfada tablo benim yapmak istediğim 2 sayfaya isimlerin ve ilgili tarihlerin karşısına fazla mesaileri aktarmak.
Teşekür ederim.

Ekli dosyanızı kontrol ediniz.

Sub aktar()
sat = 6
Sheets("tablo").Range("B6:AH65000").ClearContents
For r = 5 To Worksheets("veri").Cells(Rows.Count, "B").End(3).Row
aranan1 = Sheets("veri").Cells(r, "b").Value
If Sheets("veri").Cells(r, "b").Value <> "" Then
If WorksheetFunction.CountIf(Worksheets("veri").Range("b5:b" & r), aranan1) = 1 Then
For j = r To Worksheets("veri").Cells(Rows.Count, "B").End(3).Row
aranan2 = CDate(Sheets("veri").Cells(j, "e").Value)
aranan3 = Sheets("veri").Cells(j, "b").Value
If aranan3 = aranan1 Then
For i = 4 To Worksheets("tablo").Cells(5, Columns.Count).End(xlToLeft).Column
bulunan1 = CDate(Sheets("tablo").Cells(5, i).Value)
If bulunan1 = aranan2 Then
Sheets("tablo").Cells(sat, i).Value = Sheets("veri").Cells(j, "f").Value
End If
Next i
End If
Next j
If WorksheetFunction.CountA(Worksheets("tablo").Range("b" & sat & ":ah" & sat)) > 0 Then
Sheets("tablo").Cells(sat, "b").Value = sat - 5
Sheets("tablo").Cells(sat, "c").Value = Sheets("veri").Cells(r, "c").Value & " " & Sheets("veri").Cells(r, "d").Value
sat = sat + 1
End If
End If
End If
Next r
MsgBox "işlem tamam"
End Sub

 

[penguen6363]

Teşekür Ederim Halit Bey
Makro yazmakla ilgili bilgim olmadığı için bişey sormak istiyorum ben her ay bu aktarımları programdan excel'e aktarıyorum ve bu kodları excele nasıl uygulayabilirim.

Zahmet etmişsiniz. Zaman ayırıp emek vermişsiniz. İlginiz ve alakanız için çooook çoook teşekür ederim.

 

[halit3]

Teşekür Ederim Halit Bey
Makro yazmakla ilgili bilgim olmadığı için bişey sormak istiyorum ben her ay bu aktarımları programdan excel'e aktarıyorum ve bu kodları excele nasıl uygulayabilirim.

Zahmet etmişsiniz. Zaman ayırıp emek vermişsiniz. İlginiz ve alakanız için çooook çoook teşekür ederim.

Verilerinizi bu dosyadaki veri sayfasına kopyalamanız yeterli olacaktır.

 

[penguen6363]

Teşekür Ederim Halit Bey

 

[halit3]

Teşekür Ederim Halit Bey

İyi çalışmalar