sayfalar arası veri aktarımı....

[ozmacig]

arkadaşlar ekte sunduğum excellde araç kartı bulunmaktadır. araçların plaka olarak syfa yaptım ve bu sayfalardaki verileri aylık olarak (örneğin : ocak ayına ait) verileri sayfa1 nolu sayfaya aktarmak istiyorum. bunu nasıl yapa bilirim yardımcı olursanız sevinirim.. saygılarımla

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Aktar()
Sheets("Sayfa1").Select
Dim i, j, Ay As Integer
j = 1
Ay = Application.InputBox("Hangi Ay Aktarılacak?", "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]", Default:=1, Type:=1)
If Ay = False Then Exit Sub
Ay = Ay + 3
For i = 1 To Sheets.Count - 1
    j = j + 1
    Cells(j, "A") = Sheets(i).Name
    Sheets(i).Range("B" & Ay & ":M" & Ay).Copy Cells(j, "B")
Next i
End Sub

 

[ozmacig]

hocam ellerin dert görmesin çok işime yaradı...

 

[Necdet]

Güle güle kullanınız Sayın ozmacig.

 

[chevmet]

emeğinize sağlık