Excel Diğer Dosyalardan Veri Almak

[@dvdcoban]

hocam, anlatımınız için teşekkür ederim. sorum şu; bu şekilde 3-4 excel dosyasını birbirine bağladığımızda bilgisayarda yeri ve adı değiştirilmezse veriler alınıyor. peki klasörü flasha atıp başka bir bilgisayarda çalıştırma imkanı var mıdır?

[@farukcubukcu]

Merhaba, evet farklı dosya yolları olacaktır ve sorun olur. Bu durumda dosyaları Power Query ile birleştirme ve onda da dosya yolunun parametrik yapma yolları var. Power Query dosya kaynağını parametrik yapma diye bir bakın isterseniz.

[@yorgunkirpi]

DÜŞEYARA KURALI GEREĞİ !!!! İNCE NOKTAYI BELİRTTİĞİNİZ AN SORUNUM KALMADI. KURAL GEREĞİ ARANAN DEĞERDEN İTİBAREN SEÇİM YAPILMASI GEREKTİĞİNİ KİMSE SÖYLEMİYOR. BİLGİLENDİRMENİZ İÇİN TEŞEKKÜR EDERİM.

[@necibkilci]

Hocam merhaba peki excel vba ile farklı excel dosyalarından vlookup kullanarak nasıl veri çekebiliriz ? Yardımcı olursanız çok müteşekkir olurum

[@farukcubukcu]

merhaba, diğer bir dosyadan veri almak için; Bu işlem için önce dosyalar ayrı ayrı tanımlanır: Dim Ws1 As Workbook Dim Ws2 As Workbook Dosyalar açılır: Set Ws1 = Workbooks.Open(ThisWorkbook.Path & "\urunler.xlsx") Set Ws2 = Workbooks.Open(ThisWorkbook.Path & "\siparisler.xlsx") Birinden birine veri aktarımı: Ws2.Sheets(1).Range("A1").Value = Ws1.Sheets(1).Range("A1").Value Ws1.Close SaveChanges:=False Ws2.Close SaveChanges:=True VLOOKUP işlemine gelince; İster Worksheet.function ile kullanın: Application.WorksheetFunction.VLookup(Cells(satir, 3), Sheets("urunler").Range("A:F"), 6, 0) Ya da dosyalar içerisinde siz döngü kurarark istediğiniz kaydı bulun. kzbin.info/www/bejne/bYC0c2xuitdnnpI kzbin.info/www/bejne/gpSxiXenbteVm5o kzbin.info/www/bejne/gpXOq6uQqZyHfZo

[@necibkilci]

@@farukcubukcu hocam çok teşekkür ederim. Ayrıca veri aktaracağımız dosyayı kendimizin seçtiği bir bölümde ekleme yaptım. Peki WorksheetFunction.VLookup kullanarak birden fazla veriyi(sütunu) aynı anda ekleyebilir miyim ? Mesela aşağıda wb1 dosyasından sadece 4.sütundaki verileri çağırdım. Aynı formülde 4 ve 5 sütuna wb1 dosyasından 4 ve 9.cu sütunları nasıl çağırabilirim Private Sub cmd_grp_Click() Dim satir As Long Dim wb1 As Workbook Dim dosya As Variant With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "C:\Excel" .Title = "Aktarım Yapılacak Dosyayı Seç" .ButtonName = "Seçiniz" .Filters.Clear .Filters.Add "Excel Files", "*.xlsx, *.csv, *.xls, *.*xls*" .FilterIndex = 1 If .Show = 0 Then Exit Sub Else dosya = .SelectedItems(1) End If End With Application.ScreenUpdating = False Set wb1 = Workbooks.Open(dosya) With ThisWorkbook.Sheets("TIRNAK BAKIM TARİHLERİ") For satir = 2 To .Range("a1").End(xlDown).Row On Error Resume Next If .Cells(satir, 4).Value = _ WorksheetFunction.VLookup(Trim(.Cells(satir, 1).Value), _ wb1.Sheets("Sheet").Range("a:d"), 4, 0) = "" Then .Cells(satir, 4).Value = "Sürü Dışı" Else .Cells(satir, 4).Value = _ WorksheetFunction.VLookup(Trim(.Cells(satir, 1).Value), _ wb1.Sheets("Sheet").Range("a:d"), 4, 0) End If Next wb1.Close savechanges:=False Application.ScreenUpdating = True End With Exit Sub hatakontrol: Select Case Err Case 1004 MsgBox ("DOSYABULUNAMADI") Case Else MsgBox Err.Description End Select Application.ScreenUpdating = True w1.Close End Sub

[@Mr_Kose61]

Faruk bey video içerikleriniz çok yararlı ancak ses az geliyor, videolarda ses problemi var.

[@farukcubukcu]

Merhaba, vallahi şu anda bu videoyu açtım kendi laptopum üzerinde. Yanımdaki arkadaşlara duyuyor musunuz dedim. "Duyuyoruz dediler". PC, telefon, vs dinlediğiniz ortam nedir bilemiyorum ama ses yeterli bu video için. Genelde eski videolarımda ses sorunu yazan oluyor, ama son bir iki yıldır ses ile ilgili sorun bildirimi hiç olmadı.

[@Mr_Kose61]

@@farukcubukcu olabilir siz öyle diyorsunuz doğrudur, belki benim cihaz kaynaklı olabilir.