Makro düzeltme

[ertane]

sub kapalıverial()
a = msgbox("dosyalarından veri almak istiyormusunuz.?", vbyesno)
ıf a = vbno then
exit sub
end ıf
dim son as long
kalasor = thisworkbook.path
dosya = "günlük gelir tablosu.xls"
sayfaadi = "sağlık1"
rows("8:5000").clearcontents
deg = "'" & kalasor & "\" & "[" & dosya & "]" & sayfaadi & "'!r"
son = application.executeexcel4macro("counta('" & kalasor & "\" & "[" & dosya & "]" & sayfaadi & "'!r8c3:r5000c3)")
aranan = cells(1, "c").value
sat = 8
for r = 8 to son + 8
bulunan = executeexcel4macro(deg & r & "c3")
ıf trim(aranan) = trim(bulunan) then
for i = 1 to 25
cells(sat, i).value = executeexcel4macro(deg & r & "c" & i)
ıf cells(sat, i).value = 0 then
cells(sat, i).value = ""
end ıf
next i
sat = sat + 1
end ıf
next r
msgbox "işlem tamam"
end sub




yukardaki makroda c sütunuda isim arayıp ilgili ismi ve satırını çağırıyor ben bunun sütunu x,ab,az,bg gibi farklı sütununda arama istesem nasıl yapabilirim saatlerce uğraştım denedim ama beceremedim yukardaki sütundan birini tarif etseniz c sütununu değiştirmek için makroda nereleri değiştirmem lazım isterseniz örnek dosyayı ekleyebilirim saygılarımla şimdiden ilginize sonsuz teşekkürler

 

[ertane]

sorun çözüldü

sorun çözüldü