Sayfalara veri aktarımı

[Bakigemlik]

Günaydın Arkadaşlar,

Elimde araçlarıma ait yaptıkları işleri girdiğim bir tablo var,

Giriş sayfasına veri girişi yaptığımda girdiğim verileri ilgili plakanın sayfasına aktarılmasını istiyorum,

Desteğinizi rica ederim,

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[Bakigemlik]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Sayın Muygun emeğiniz ve desteğiniz için teşekkürler,

 

[Bakigemlik]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Sayın Muygun Merhaba,

Mükerrer hiç giriş olmadığı için dikkat etmemişim, sayfalara aktarma yaparken "B" sütunundaki "Sefer No" ları kontrol etmeli aynı sefer numarası mevcutsa sadece bunlarda bir tanesini aktarmalı hangiscolduğumun önemi yok ama plakalara ait sayfalarda Sefer numaralarının sadece bir tanesini aktarmalı

 

[Erdem Akdemir]

Baki bey aşağıdaki kodları dener misiniz?

Sub aktar()
Dim s As Object
Dim a()
Set CON = VBA.CreateObject("adodb.Connection")
Set RS = VBA.CreateObject("adodb.Recordset")


son = Cells(Rows.Count, "a").End(3).Row

Set s = CreateObject("Scripting.Dictionary")

For i = 2 To son
aranan = Cells(i, "a")
If Not s.Exists(aranan) Then
s.Add aranan, Nothing
End If
Next
a = s.keys

For x = 0 To UBound(a)
CON.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select Distinct * from [GİRİŞ$] where plaka='" & a(x) & "'"

RS.Open sorgu, CON, 1, 1

Sheets(a(x)).Range("a5").CopyFromRecordset RS
RS.Close
CON.Close
Next

End Sub

 

[muygun]

Merhaba;
Alternatif:
Eki deneyin.
İyi çalışmalar.

 

[Bakigemlik]

Merhaba;
Alternatif:
Eki deneyin.
İyi çalışmalar.

Çok teşekkürler sayın muygun