Arkadaşlar aşağıdaki kod aynı excel dosyasında veri sayfasından verileri süzerek aktarmakta. ( kodları yazan arkadaştan allah razı olsun)
Benim yapmak isteyipte yapamadığım
1- Aynı excel dosyasında veri sayfasından değilde kapalı olan veri.xls dosyasında veri sayfasından verileri süzerek alması.
2. Bu kod sayfa aktif olduğunda çalışmakta ben excel dosyasını her açtığımda makro güvenlik uyarısına evet dedikten sonra hemen çalışarak verileri güncellemesini sağlamam gerekmekte.
ADO ile uğraştım ama beceremedim yardım ederseniz cok memnun olurum.
Benim yapmak isteyipte yapamadığım
1- Aynı excel dosyasında veri sayfasından değilde kapalı olan veri.xls dosyasında veri sayfasından verileri süzerek alması.
2. Bu kod sayfa aktif olduğunda çalışmakta ben excel dosyasını her açtığımda makro güvenlik uyarısına evet dedikten sonra hemen çalışarak verileri güncellemesini sağlamam gerekmekte.
ADO ile uğraştım ama beceremedim yardım ederseniz cok memnun olurum.
Kod:
Private Sub Worksheet_Activate()
Dim c As Range, sat As Long, ilkadres As Variant
Range("A5:AU" & Rows.Count).ClearContents
sat = 5
With Sheets("VERİ").Range("R:R")
Set c = .Find(ActiveSheet.Name, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Cells(sat, "A") = Sheets("VERİ").Cells(c.Row, "A")
Cells(sat, "B") = Sheets("VERİ").Cells(c.Row, "B")
Cells(sat, "C") = Sheets("VERİ").Cells(c.Row, "C")
Cells(sat, "D") = Sheets("VERİ").Cells(c.Row, "D")
Cells(sat, "E") = Sheets("VERİ").Cells(c.Row, "E")
Cells(sat, "F") = Sheets("VERİ").Cells(c.Row, "F")
Cells(sat, "G") = Sheets("VERİ").Cells(c.Row, "G")
Cells(sat, "H") = Sheets("VERİ").Cells(c.Row, "H")
Cells(sat, "I") = Sheets("VERİ").Cells(c.Row, "I")
Cells(sat, "J") = Sheets("VERİ").Cells(c.Row, "J")
Cells(sat, "K") = Sheets("VERİ").Cells(c.Row, "K")
Cells(sat, "L") = Sheets("VERİ").Cells(c.Row, "L")
Cells(sat, "M") = Sheets("VERİ").Cells(c.Row, "M")
Cells(sat, "N") = Sheets("VERİ").Cells(c.Row, "N")
Cells(sat, "O") = Sheets("VERİ").Cells(c.Row, "O")
Cells(sat, "P") = Sheets("VERİ").Cells(c.Row, "P")
Cells(sat, "Q") = Sheets("VERİ").Cells(c.Row, "Q")
Cells(sat, "R") = Sheets("VERİ").Cells(c.Row, "R")
Cells(sat, "S") = Sheets("VERİ").Cells(c.Row, "S")
Cells(sat, "T") = Sheets("VERİ").Cells(c.Row, "T")
Cells(sat, "U") = Sheets("VERİ").Cells(c.Row, "U")
Cells(sat, "V") = Sheets("VERİ").Cells(c.Row, "V")
Cells(sat, "W") = Sheets("VERİ").Cells(c.Row, "W")
Cells(sat, "X") = Sheets("VERİ").Cells(c.Row, "X")
Cells(sat, "Y") = Sheets("VERİ").Cells(c.Row, "Y")
Cells(sat, "Z") = Sheets("VERİ").Cells(c.Row, "Z")
Cells(sat, "AA") = Sheets("VERİ").Cells(c.Row, "AA")
Cells(sat, "AB") = Sheets("VERİ").Cells(c.Row, "AB")
Cells(sat, "AC") = Sheets("VERİ").Cells(c.Row, "AC")
Cells(sat, "AD") = Sheets("VERİ").Cells(c.Row, "AD")
Cells(sat, "AE") = Sheets("VERİ").Cells(c.Row, "AE")
Cells(sat, "AF") = Sheets("VERİ").Cells(c.Row, "AF")
Cells(sat, "AG") = Sheets("VERİ").Cells(c.Row, "AG")
Cells(sat, "AH") = Sheets("VERİ").Cells(c.Row, "AH")
Cells(sat, "AI") = Sheets("VERİ").Cells(c.Row, "AI")
Cells(sat, "AJ") = Sheets("VERİ").Cells(c.Row, "AJ")
Cells(sat, "AK") = Sheets("VERİ").Cells(c.Row, "AK")
Cells(sat, "AL") = Sheets("VERİ").Cells(c.Row, "AL")
Cells(sat, "AM") = Sheets("VERİ").Cells(c.Row, "AM")
Cells(sat, "AN") = Sheets("VERİ").Cells(c.Row, "AN")
Cells(sat, "AO") = Sheets("VERİ").Cells(c.Row, "AO")
Cells(sat, "AP") = Sheets("VERİ").Cells(c.Row, "AP")
Cells(sat, "AQ") = Sheets("VERİ").Cells(c.Row, "AQ")
Cells(sat, "AR") = Sheets("VERİ").Cells(c.Row, "AR")
Cells(sat, "AS") = Sheets("VERİ").Cells(c.Row, "AS")
Cells(sat, "AT") = Sheets("VERİ").Cells(c.Row, "AT")
Cells(sat, "AU") = Sheets("VERİ").Cells(c.Row, "AU")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
End Sub
Ekli dosyalar
-
244.6 KB Görüntüleme: 30
-
402.8 KB Görüntüleme: 30
Son düzenleme: