dosya yol

[oydemir]

Asadaki kotla sayfada ListBox aranan değeri filtreleye biliyorum.
Benim sizlerden istediğim ağdaki kapalı dosyadan aynısını yapmak istiyorum. Bunun için nasıl bir kod yazmam gerekiyor.
dosyanın konumu \\1.1.1.1\deneme\deneme.xlsm



Private Sub ComboBox2_Change()
Dim Son As Long, Say As Long, Veri As Range, Aranan, Kriter

If ComboBox2 = "" Then
Son = Sheets("deneme").Range("A" & Rows.Count).End(3).Row
ListBox1.ColumnCount = 16
ListBox1.ColumnWidths = "20;40;40;40;40;40"
ListBox1.RowSource = "deneme!A2" & Son
Else
Son = Sheets("deneme").Range("A" & Rows.Count).End(3).Row
ListBox1.RowSource = ""
ListBox1.Clear
ListBox1.ColumnCount = 16
ListBox1.ColumnWidths = "20;40;40;40;40;40"
For Each Veri In Sheets("deneme").Range("B2:B" & Son)
Aranan = UCase(Replace(Replace(ComboBox2, "ı", "I"), "i", "İ"))
Kriter = UCase(Replace(Replace(Left(Veri, Len(ComboBox2)), "ı", "I"), "i", "İ"))
If Kriter = Aranan Then
ListBox1.AddItem
ListBox1.List(Say, 0) = Veri.Offset(0, -1).Value
ListBox1.List(Say, 1) = Veri.Value
ListBox1.List(Say, 2) = Veri.Offset(0, 1).Value
ListBox1.List(Say, 3) = Veri.Offset(0, 2).Value
ListBox1.List(Say, 4) = Veri.Offset(0, 3).Value
ListBox1.List(Say, 5) = Veri.Offset(0, 4).Value
ListBox1.List(Say, 6) = Veri.Offset(0, 5).Value
ListBox1.List(Say, 8) = Veri.Offset(0, 7).Value



Say = Say + 1
End If
Next
End If
End Sub

 

[Korhan Ayhan]

İnceleyiniz. Belki işinize yarayabilir..

Listbox a network ten veri çekmek..

Sayın Hocalarım ve arkadaşlar. Aşşagıdaki kodda çalıştıgım iş yerinde 2 tane bilgisayar kullanıyorum biri alt katta digeri üst katta üstkatta 2.PC de Paylaşıma açtıgım DOSYA2 klasorunun içindeki KİTAP2 isimli Excel kitabıdaki Sayfa 2 nin A4 den D100 e kadar olan bölümünü DETAY isimli...

www.excel.web.tr

 

[oydemir]

teşekkürler elinize sağlık