düşeyara ve dosya birleştir makrosu

[slowly06]

Arkadaşlar aşağıdaki konuda yardımlarınızı rica ediyorum.

Ekteki urunler dosyasının “H” sütünunda ürün kodu var “T” sütünunda Stok miktarı var.

Her hafta stok güncelleyeceğim için makro ile yapmaktan daha kolayı yok gibi. Stok sekmesinde “A” sütünunda ürün kodu “C” sütünunda da stok bilgisi var.
stok sekmesindeki A sütunu ile urunler sekmesindeki H sütunundaki verilerin bazıları ortak; Ortak olanları Düşeyarama ile H ve A sütunlarını karşılaştırıp aynı olanların T sütununa C sütunundaki stok rakamlarını yapıştıracak.


ACİL yardımınızı bekliyorum bir taraftan da denemelere devam ediyorum.
İyi çalışmalar saygılarımla.

Şimdiden teşekkürler.

 

[hryildirim]

Dostum biraz acelem olduğu için uğraşamıyorum ama aşağıda bir düşey ara formülü göre bilirsin.
a2 hücresindeki kutusunda yer alan veriyi 02 : 01000 hücreleri
arasında arar, bulunan veri satırının c sütunundaki veri b2'ye kayıt eder.



With ActiveSheet.Range("o2 : o1000")
Set bul = .Find([a2].Value, LookIn:=xlValues, lookAt:=xlWhole)
If Not bul Is Nothing Then
ActiveSheet.Cells(bul.Row, "c").Value = [b2].Value
Else
MsgBox ("Kayıt Bulunamadı Lütfen Takip Numaranızı Kontrol Ediniz ")
End If
End With

 

[slowly06]

Dostum biraz acelem olduğu için uğraşamıyorum ama aşağıda bir düşey ara formülü göre bilirsin.
a2 hücresindeki kutusunda yer alan veriyi 02 : 01000 hücreleri
arasında arar, bulunan veri satırının c sütunundaki veri b2'ye kayıt eder.



With ActiveSheet.Range("o2 : o1000")
Set bul = .Find([a2].Value, LookIn:=xlValues, lookAt:=xlWhole)
If Not bul Is Nothing Then
ActiveSheet.Cells(bul.Row, "c").Value = [b2].Value
Else
MsgBox ("Kayıt Bulunamadı Lütfen Takip Numaranızı Kontrol Ediniz ")
End If
End With

Denedim ama maalesef olmadı... (bende becerememiş olabilirim)
hem düşey ara hemde eğer kullanarak formul yazmayı deniyorum.
Eğer becerebilirsem makro olarak kaydedip paylaşırım.
Ama excel konusunda yeteneklerim oldukça kısıtlı
Tekrar teşekkürler denemeye devam...

 

[slowly06]

Sonunda kendi sorunumun çözümünü buldum.
başka arkadaşlara da yardımı olursa diye yazıyorum.

Sub düşeyara()
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-12],[stoklistesi.xls]Sayfa1!R1C1:R65536C4,4,0)"
Selection.AutoFill Destination:=Range("T1:T1062"), Type:=xlFillDefault
Range("T1:T1062").Select
End Sub