Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
denedim malsef sonuç alamadımdim rg as range set rg =sayfa152..range("A1").currentregion dim dizi as variant dizi=rg for i=1 to ubound(dizi) if sayfa1.cell(3,2)=dizi(i,1) then sayfa1.cells(5,1)=dizi(i,1) exit sub end if next i
Selamlar ;
152 sayfasında ürün reçeteleri var.. Sayfa 1 e ürün kodu yazdığımda 152 den reçeteleri getirsin diye bir vba yazdım
ama bi yerde hata yapıyorum bulamadım.
yardımcı olur musunuz?
HTML:
uğraşınız için teşekkürler ancak sanırım yanlış anlaşılma olmuş. b3 hücresine girdiğim kodu s152 sayfasının a sütununda arayacak...örneğiniz ekte
sayfa6 diye bişey yokki bende...kodu aşağıdaki ile değiştirin
If Trim(Sayfa6.Cells(3, 2)) = Trim(dizi(i, 1)) Then