DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sn. murat OSMA v2 hüçresine =c2, v3 hüçresine =c14 vb seri bağlantı oluşturup v3:v33 arası veri alacak şekilde ayarladım. Tavsiyeniz için ve ilginiz için teşekkürler.Ne yaptınız Sn. eneskus ?
Sub Emre()
Dim con As Object, rs As Object
Dim dosya As String, sorgu As String
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
dosya = ThisWorkbook.Path & "\AMBAR ÇIKIŞ BONOSU KAYIT.xlsm"
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dosya & _
";Extended Properties=""Excel 12.0;hdr=yes"""
sorgu = "Select [MALZEME ADI] FROM [AMBAR ÇIKIŞ BONOSU VERİ GİRİŞİ$]"
rs.Open sorgu, con, 1, 1
Range("BJ3").CopyFromRecordset rs
Set rs = con.Execute("select [BONO NO1 : ] from [AMBAR ÇIKIŞ BONOSU VERİ GİRİŞİ$]")
Range("BL3").CopyFromRecordset rs
rs.Close: con.Close
Set con = Nothing: Set rs = Nothing
dosya = vbNullString: sorgu = vbNullString
End Sub
Teşekkür Ederim Murat bey. Ancak dediğiniz gibi bir sekilde halletmiştim.Şu kodlar bir deneyiniz.
Birkaç farklı yolla çözülebilirdi ben bunu tercih ettim.Kod:Sub Emre() Dim con As Object, rs As Object Dim dosya As String, sorgu As String Set con = CreateObject("adodb.connection") Set rs = CreateObject("adodb.recordset") dosya = ThisWorkbook.Path & "\AMBAR ÇIKIŞ BONOSU KAYIT.xlsm" con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dosya & _ ";Extended Properties=""Excel 12.0;hdr=yes""" sorgu = "Select [MALZEME ADI] FROM [AMBAR ÇIKIŞ BONOSU VERİ GİRİŞİ$]" rs.Open sorgu, con, 1, 1 Range("BJ3").CopyFromRecordset rs Set rs = con.Execute("select [BONO NO1 : ] from [AMBAR ÇIKIŞ BONOSU VERİ GİRİŞİ$]") Range("BL3").CopyFromRecordset rs rs.Close: con.Close Set con = Nothing: Set rs = Nothing dosya = vbNullString: sorgu = vbNullString End Sub
Dosyada iki yerde değişiklik yaptım.
1.si: C sütunu başlığını BONO NO1 yaptım.
2.si: Malzeme adının olduğu satırı en başa aldım.
Dosyada göreceksiniz zaten.
Eğer sizin uygun değilse; ya başka yolla çözeriz, ya da zaten siz bir yolunu bulmuşsunuz...
İyi geceler...
merhaba
arkadaşlar en uygun kategori bu konuyu bulduğum için buraya yazıyorum. yukarıda belirtildiği şekilde benim de bir veri excellim var, ama bu ecxell içerisinde 30-40 bin kayıt bulunuyor. ben her ay bu sayfadan filtreyelerek veya Pivot kullanarak istediğim kişilerin yapmış olduğu işlemleri tek tek rapor alıyorum, e malumunuz bu da benim baya bir zamanımı alıyor.
yapmak istediğim bu excell dosyası içerisinde bulunan 30 kullanıcı için ayrı ayrı exceller oluşturmak, oluşturduğum her excell örnek ahmet.xlsm dosyası nı açtığım zaman bana ana excellden ahmet ismini bulacak ve bu oluşturduğum excelle ahmet isminin bulunduğu sütun'u ilgili excell içerisine update edecek, yalnız burada sofor hata olması çok önemli. ana dosyada Ahmet 3, Ahmet Suat, gibi isimler var ise bunu bana getirmemelidir. sadece Ahmet olan stunları hatasız getirmelidir.
uzman bilgilerinize dayanarak yardımlarınızı rica ederim.
teşekkürler
iyi çalışmalar