VERİ Aramak

[Filose]

LÜTFEN biri yardımcı olsun...

2 adet açık dosyam var.

Biri MİZAN verileri alacağım dosya.
Diğeri açık olan boş dosya (Makronun yazılacağı dosya)

Bu boş dosyada MAKRO ile mizan dosyasından istediğim hesap kodunu arayacak (100,120,150 gibi)
Örnek: Aradığımız 120 olsun ve diyelimki bunuda B10
hücresinde bulsun. B15 hücresidede değeri olsun

B15 deki değeri Makroyu yazdığım yani açık olan boş dosyamın istenilen hücresine yazacak.

Not: DÜŞEYARA komudunda olduğu gibi belirtilen alanın içinden istenilen hücre bilgisini aldığı gibi

Şimdiden teşekkür ederim.

Saygılar

Ahmet

 

[tamer060]

http://www.excel.web.tr/f48/kapaly-olan-dosyalarda-son-dolu-satyry-acyk-olan-t121440.html

Linki İncelermesin açık kapalı dosya örnekleri mevcut

 

[dEdE]

Merhaba,
Mizan dosyanız açıkken, ayrı bir dosyada aşağıdaki kodları dener misiniz.

Sub Veri_Al()
    On Error Resume Next
    Set S1 = ThisWorkbook.Sheets("Sayfa1")
    Set S2 = Workbooks("mizan.xls").Sheets("Sheet1")
    son = ThisWorkbook.Sheets("Sayfa1").[A65536].End(3).Row + 1
    
    Bul = Application.InputBox("Hesap Kodunu Giriniz?", "HESAP KODU GİRİŞİ")
        If Bul = False Then Exit Sub
    
    With WorksheetFunction
        If .CountIf(S2.Range("A:A"), Bul) > 0 Then
            Cells(son, 1) = .VLookup(Bul, S2.Range("A:H"), 7, 0)
        Else
            MsgBox Bul & " No.lu Hesap Kodu Yok", vbCritical, "H A T A !"
        End If
    End With
End Sub

 

[Filose]

Veri aktarma

Merhaba Dede,

Yardımlarınız için teşekkür ederim. Mizan dosyasını açtım. Boş bir excel dosyasıda açtım. Makro kodlarını buraya yazdım ama mizandan getireceği koda ait bilgiyi herhangi bir hücreye yazdıramadım.

Birde aranacak KOD makronun içinde olsun. Çünkü ben aranacak kodları çoğaltacağım ve Buton ekleyip istediğim hücrelere yazdıracağım.

Saygıyla kalın.

Ahmet

 

[dEdE]

Merhaba,
Mizandan alınacak verilerin G sütunundan alınacağı varsayılmıştır.
Girdiğiniz hesap koduna göre G sütununda veri var ise A sütununa alt alta yazar.
Verinin hangi sütundan alınacağı belli bir kurala bağlı değilse işlem yapılması zor hatta imkansız olabilir.

...aranacak KOD makronun içinde olsun...

Aşağıdaki iki satırı sildikten sonra kodda geçen Bul sözcüklerinin yerine hesap kodunu çift tırnak içinde yazarsanız istediğiniz olur.

Bul = Application.InputBox("Hesap Kodunu Giriniz?", "HESAP KODU GİRİŞİ")
        If Bul = False Then Exit Sub

NOT:Lütfen aynı konuda iki başlık açmayınız.

 

[Filose]

Tekrar merhaba 2 satırı sildim. 2 yerde bul yerine tırnak içinde kod yazdım
ama diğer dosyanın (açık olan 2. dosya) herhangi bir hücresine bilgi gelmedi.

Ayrıca 2 başlık açtığım acemiliğimdendir.

Saygılar

 

[dEdE]

Merhaba,
Ekli iki dosya açık iken VeriAl düğmesine tıklayınız.
Hesap kodu olarak 150 girin ve sonucu izleyin. Getirilen veri mizan dosyasının G sütunundandır.
G süyunu boş ise veri gelmeyecektir.
Sizin dosyanızın adı mizan.xls değilse kodun ilgili satırını düzeltiniz.
Hoşçakalın..

 

[Filose]

Veri aktarma

Merhaba Dede;

Uğraşınız için çok teşekkür ederim. Çok güzel oldu.
Sizden ricam çeşitli hücrelerden bilgi alacağımdan ben çoğaltmak istiyorum.
Sanırım;

If .CountIf(S2.Range("A:A"), "150") > 0 Then
Cells(son, 1) = .VLookup("150", S2.Range("A:H"), 7, 0)

Bu satırları çoğaltacağım. If..... Else arasına mı yazmam lazım. Birde ikinci veriyi a1 değilde a2 ye yazarsam bu satır hangisi.
Son sorum veri alacağım dosya kapalı ise hangi KODU yazmam gerekir.

Teşekkür eder
Saygılar sunarım.

 

[dEdE]

... çeşitli hücrelerden bilgi alacağımdan ben çoğaltmak istiyorum.Sanırım;
If .CountIf(S2.Range("A:A"), "150") > 0 Then
Cells(son, 1) = .VLookup("150", S2.Range("A:H"), 7, 0)
Bu satırları çoğaltacağım. If..... Else arasına mı yazmam lazım. .

Evet.

... Birde ikinci veriyi a1 değilde a2 ye yazarsam bu satır hangisi..

Koddaki Son değişkeni verinin yazılacağı satırı belirler. Sayfanız tamamen boş ise 2. satırdan başlar. Sayfada A sütununda veri var ise bu verinin altındaki ilk boş satıra yazar.

... Son sorum veri alacağım dosya kapalı ise hangi KODU yazmam gerekir..

Bu konuda forumda çok örnek var, arama yaparsanız kolayca bulursunuz.
Örneğin;
http://www.excel.web.tr/f14/50-adet-caly-ma-kitabyny-tek-caly-ma-t121541.html
http://www.excel.web.tr/f48/kapaly-olan-dosyalarda-son-dolu-satyry-acyk-olan-t121440.html

NOT: Daha önce belirtmeme karşın yine aynı konuyu iki ayrı başlık altında soruyorsunuz. Bu nedenle bundan sonra bu başlık altındaki sorularınızı yanıtlamayacağım. Hoşçakalın.

 

[Filose]

Bilgi

Merhaba Dede

Öncelikle kusura bakmayın lütfen. Yeni konu altında cevap alamadığım için aynı başlığa yakın başlık 3 kez gibi başlık atmış olabilirim. Bu benim forum kurallarını fazla bilmediğim içindir. Aynı zamanda size aynı konu ile ilgili ise hep aynı başlık yazmışım. Örn: Bilmediğim için bu yazıya da "Bilgi" dedim. Bu başlık ve konu başlığı farklıdır diye düşündüğümdendir.

Ayrıca forumda bir çok yerde konumla alakalı birçok kod vardı. Hepsini kendimce inceledim kendime birtürlü uyarlayamadım. Bu nedenle bilgi almak zorunda kaldım.
Bilgi verdiğiniz veya veremediğiniz içinde; gönülden teşekkür ederim. Bilginiz hiç eksilmesin.

Her şeyi bilecek kadar genç değilim. Demiş Oscar Wilde
Üstad ben 55 yaşındayım. Sanırım bunun payı vardır.

Hoşçakalın...
Ahmet