Açık veya Kapalı Dosya Bularak Veri Alma

[mekuka]

Selam,

Benim sorum şu şekilde,

C:\k1.xls dosyasında A1 hücresin yazılan değeri command buttona tıklayınca c:\K2.xls dosyasının A sütununda arayıp bulduğu bir veya birkaç veriyi A sütunuyla beraber c:\k1.xls dosyasındaki b1 hücresinden başlayarak listelemesi.

Şimdiden yardım eden herkese teşekkürü bir borç bilirim...

 

[mekuka]

Acİl LÜtfen

sizin için basit olabilir ama ben diğer dosyadan veri aldıramadım. Lütfen acil yardımmmmmmmmmmmmmmmm...........

 

[mekuka]

yardım edecek biri yok muuuuuu????????????????????????????????????

bu komutta ilk bulunan satırı getiriyor...

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim ASIL_KİTAP As Workbook
Dim HEDEF_KİTAP As Workbook
Set ASIL_KİTAP = ActiveWorkbook
Set svn = Sheets("GİRİŞ")
Set HEDEF_KİTAP = Workbooks.Open("C:\k2.xls", False, False)
ASIL_KİTAP.Activate
For SATIR = 2 To svn.[A65536].End(3).Row
If svn.Cells(SATIR, 1) <> "" Then
For Each SAYFA In HEDEF_K&#304;TAP.Sheets
Set bul = SAYFA.Columns("A").Find(svn.Cells(SATIR, 1))
If Not bul Is Nothing Then
svn.Cells(SATIR, 2) = bul.Cells(1, 1)
svn.Cells(SATIR, 3) = bul.Cells(1, 2)
svn.Cells(SATIR, 4) = bul.Cells(1, 3)

End If
Next
End If
Next
HEDEF_K&#304;TAP.Close
Application.ScreenUpdating = True
MsgBox "SORGULAMA &#304;&#350;LEM&#304; TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[Orion1]

K2 dosyaysı C:\ Kök dizininde olmalı.
Dosyade veriler 1nci staırdan başlamalı .Ve dosya kapalı olsada veriler aktarılır.
Dosya ekte.
excel4 makrosu kullanıldı.

Sub kapali_bul()
Dim sat As Long, son As Long, i As Long
son = ExecuteExcel4Macro("COUNTA('C:\[K2.xls]Sayfa1'!C1)")
sat = 2
Range("B2:C65536").ClearContents
For i = 1 To son
    If ExecuteExcel4Macro("'C:\[K2.xls]Sayfa1'!R" & i & "C1") = Range("A1").Value Then
        For k = 1 To 3
            Cells(sat, k).Value = ExecuteExcel4Macro("'C:\[K2.xls]Sayfa1'!R" & i & "C" & k)
        Next k
        sat = sat + 1
    End If
Next i
MsgBox "İşlem Tamamlandı.."
End Sub

 

[mekuka]

&#231;ok te&#351;ekk&#252;r ederim evren gizlen. ellerin dert g&#246;rmesin. 2 g&#252;nd&#252;r u&#287;ra&#351;t&#305;&#287;&#305;m &#351;eyi 5 dk.da &#231;&#246;zd&#252;n&#252;z.

bir de &#351;unu istesem,

k2 dosyas&#305;ndaki b ve c s&#252;tunlar&#305;n&#305; al&#305;yor. ben k2 dosyas&#305;ndaki a b ve c s&#252;tunlar&#305;n&#305; da istiyordum. Yani de&#287;eri buldu&#287;u h&#252;creyi de getirmesi gerekiyor. Pek anlam&#305;yorum bu i&#351;lerden yard&#305;mc&#305; olursan&#305;z sevinirim.

 

[Orion1]

çok teşekkür ederim evren gizlen. ellerin dert görmesin. 2 gündür uğraştığım şeyi 5 dk.da çözdünüz.

bir de şunu istesem,

k2 dosyasındaki b ve c sütunlarını alıyor. ben k2 dosyasındaki a b ve c sütunlarını da istiyordum. Yani değeri bulduğu hücreyi de getirmesi gerekiyor. Pek anlamıyorum bu işlerden yardımcı olursanız sevinirim.

Dosyayı düzenledim.
4 nolu mesajdan indirebilirsiniz.

 

[mekuka]

Dosyayı düzenledim.
4 nolu mesajdan indirebilirsiniz.

Eğer kusura bakmazsanız bir sorum daha olacak. Farklı sütundan aratıp, istediğimiz sütunları alabileceğimiz hale getirebilirmiyiz.

Örneğimizi 6 sütuna çıkardığımızı varsayarak, Mesela 4.sütundan aratıp, 1-3-5. sütunları istediğimiz sütunlara aldırıp, diğerlerini almamak gibi.

Cevap yazarsanız çok ama çok memnun kalırım. Emeğinize, bileğinize sağlık.

 

[mekuka]

Eğer kusura bakmazsanız bir sorum daha olacak. Farklı sütundan aratıp, istediğimiz sütunları alabileceğimiz hale getirebilirmiyiz.

Örneğimizi 6 sütuna çıkardığımızı varsayarak, Mesela 4.sütundan aratıp, 1-3-5. sütunları istediğimiz sütunlara aldırıp, diğerlerini almamak gibi.

Cevap yazarsanız çok ama çok memnun kalırım. Emeğinize, bileğinize sağlık.

Yardım edecek kimse yok muuuu????

 

[Orion1]

D sütununda arıyor.ve 1,3 ve 5nci sütunları aktarıyor.
Dosyanız ekte.

Sub kapali_bul()
Dim sat As Long, son As Long, i As Long
son = ExecuteExcel4Macro("COUNTA('C:\[K2.xls]Sayfa1'!C1)")
sat = 2
Range("B2:C65536").ClearContents
For i = 1 To son
    If ExecuteExcel4Macro("'C:\[K2.xls]Sayfa1'!R" & i & "C4") = Range("A1").Value Then
        Cells(sat, "A").Value = Range("A1").Value
        sut = 2
        For k = 1 To 6 Step 2
            Cells(sat, sut).Value = ExecuteExcel4Macro("'C:\[K2.xls]Sayfa1'!R" & i & "C" & k)
            sut = sut + 1
        Next k
        sat = sat + 1
    End If
Next i
MsgBox "İşlem Tamamlandı.."
End Sub

 

[mekuka]

ciddi diyorum nas&#305;l te&#351;ekk&#252;r edece&#287;imi bilmiyorum. Deha harikas&#305; insanlars&#305;n&#305;z. TE&#351;ekk&#252;rler tekrar tekrar

 

[Orion1]

ciddi diyorum nasıl teşekkür edeceğimi bilmiyorum. Deha harikası insanlarsınız. TEşekkürler tekrar tekrar

Rica ederim.
İyi çalışmalar.

 

[deliormanlı]

sadece s&#252;tun veya sat&#305;rlar de&#287;il de komple sayfa kopyalanabilir mi?
&#351;&#246;yleki; C7 h&#252;cresinde yaz&#305;l&#305; olan kapal&#305; dosyan&#305;n CAR&#304; isimli &#231;al&#305;&#351;ma sayfas&#305;n&#305; a&#231;&#305;k olan ANA.xls dosyas&#305;na kopyalas&#305;n. Dosya ismini h&#252;creden almas&#305;n&#305;n sebebi kapal&#305; dosyan&#305;n de&#287;i&#351;ken olaca&#287;&#305;d&#305;r. Bir cevap ya da konuyla ilgili ba&#351;l&#305;k rica ediyorum...

 

[deliormanlı]

kimse yok mu yahu. &#220;sadlar, abiler bi el atsan&#305;z

 

[cenderus]

dosyalar

aradaşlar bu soruya verilen çözüme ilişkin dosyalar eklenmiştir