ARA BUL DEĞİŞTİR YÖNTEMİNİ KULLANMA - ACİL

[melwitch]

ARA BUL DEÐÝÞTÝR Y�NTEMÝNÝ KULLANMA - ACÝL

Aslında bir başka başlık altında da bunu sormuştum ama henüz yanıt alamadığım için ve acil olduğu için tekrar sorma ihtiyacı hissettim.

Sheet2 de yer alan mesela "L15" hücresindeki bir rakamı sheet1 deki "A" kolonu içerisinde aratıp, bulduğunda aynı satırda yer alan "B" kolonundaki hücreye sheet2 deki L49 hücresindeki tarihi yazdırmak istesem nasıl yaparım?

şimdiden yardımcı olan arkadadaşlara teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:4a976b0e61]Sub bul()
sat = Sheets("sheet1").[a1:a65536].Find(Sheets("sheet2").[l15].Value).Row
Sheets("sheet1").Cells(sat, 2) = Sheets("sheet2").[l49].Value
End Sub
[/vb:1:4a976b0e61]

 

[melwitch]

leventm

her zaman yardımıma koştuğunuz için size ayrıca teşekkür etmek istiyorum. Bu site ve silzer iyiki varsınız

syg :hey:

 

[melwitch]

kod da olması gereken bir şeyi söylemeyi atlamışım.

sheet1 de aranacak rakamdan bir kaç tane birden olabiliyor. Hepsine sheet2 deki "L49" da yer alan tarihi yazdırmam gerekiyor. Bu arada ben kodu aşağıdaki gibi kendime göre uyarlamıştım. Bunun üzerinden yapabilirseniz sevinrim.

Sub bul()
sat = Sheets("sheet1").[a1:a65536].Find(Sheets("Sheet2").[l4].Value).Row
Sheets("sheet1").Cells(sat, 15) = Sheets("sheet2").[l49].Value
End Sub


tşk

 

[Levent Menteşoğlu]

Bu durumda döngülü bir çözüm önereyim.

[vb:1:e2ed0b8c69]Sub bul()
sat = Sheets("sheet1").cells(65536,1).end(xlup).row
for a=1 to sat
if Sheets("sheet1").cells(a,1)=Sheets("Sheet2").[l4].Value then
Sheets("sheet1").Cells(a, 15) = Sheets("sheet2").[l49].Value
end if
next
End Sub
[/vb:1:e2ed0b8c69]

 

[mcosh]

benzer bir problemim var

bul değiştirle yapamadım.
='[asd.xlsx]290611'!* aratıyorum sorun yok
fakat değiştirde yeni değer sadece ='[asd.xlsx]300611'!* istiyorum olmuyor.

bulunan tüm değerleri 290611 kısmındaki 29 u 30 yapmak istiyorum ama olmuyor.
vba yla yapılabilir mi?

 

[mancubus]

Ctrl+H veya Düzen/Bul değiştir (bul değiştir penceresini aç)

aranan: 290611
yeni değer: 300611

seçenekler:
Tüm hücre içeriğini eşleştir işaretli ise bu işareti kaldır.

 

[mancubus]

not:
sitede aratarak bulabileceğiniz bir husus aslında.

her türlü çabaya karşın bulamıyorsanız sorununuz farklı demektir; yeni konu açın.