formülü kodlama

[acar6783]

''h'' sütunu için

=EĞERHATA(İNDİS(SAYIM1!B:B;KAÇINCI(D2;SAYIM1!D;0));"0")

ve
ı sütunu için

=G2-H2

formüllerim var bunları kod olarak yazabilirmiyiz.
bir de acıklama yapabilirseniz sonradan değiştirdiğimde ben de sormadan öğrenmiş olayım..

 

[turk-x]

Merhaba;
formülün Vba da yazılışı
=IFERROR(INDEX(SAYIM1!C[-2],MATCH(R[-5]C,SAYIM1!D,0 )),""0"")" ve [G2]-[H2] olarak yazılabilir.

Örnek Kullanımı H2 Sütunu için :

For i=2 to Cells(65536, "D").End(xlUp).Row
Range("H"&i).formula="=IFERROR(INDEX(SAYIM1!C[-2],MATCH(R[-5]C,SAYIM1!D,0 )),""0"")"
Range("H"&i).value=[G2]-[H2]
Next i

 

[acar6783]

kodda hata mı var hiç bir işlem yapmıyor..

 

[turk-x]

Hayır Kodlamada Hata Yok Adım Adım Kodları Açıklayalım.

D2 Hücresi ile D Sütunuda dolu olan hücreye kadar işlem yap

For i=2 to Cells(65536, "D").End(xlUp).Row

H2 Hücresinden itibaren formülü G Sütununda dolu olan son hücreye kadar yaz
Range("H"&i).formula="=IFERROR(INDEX(SAYIM1!C[-2],MATCH(R[-5]C,SAYIM1!D,0 )),""0"")"

Next i




Hemen Hemen Aynı Konu ve Örnek Dosyay aşağıdaki linkten ulaşabilirsiniz.
http://www.excel.web.tr/f48/formulu...d-olarak-yerle-tirmek-t125261.html#post681632

 

[acar6783]

ek

dosya ekledim onun üzerinden uygulamanız mümkünmüdür..

bir de formülün mantığıyla çalışacak bir kod mümkünmüdür..

 

[acar6783]

yapmak istediğim

h sütununa
e sütunundakileri sayım1 sayfasının d sütununda arayıp yine sayım1 sayfasının b sütununa karşılık gelen değeri yazdırmak için bir kod istiyorum ..

 

[turk-x]

Merhaba;
Anladığı Kadarıyla Aradığınız formül =DÜŞEYARA(E2;SAYIM1!D2:F65536;3;0) olmalıdır.
Makro ile Yapalım Derseniz Düşeyara formülünü gereksiz yere hücreye yazmadan for döngüsüyle işi çözebiliriz.
Sayfa 2'nin Kod Kısmına aşağıdaki kodu yazmamız yeterli
Makro Sayım1 veya Sayfa 3 ten Sayfa 2 ye geçince çalışır.

Private Sub Worksheet_Activate()
Set Sym = Sheets("Sayım1")
For i = 2 To Cells(65536, "E").End(xlUp).Row
For i2 = 2 To Sym.Cells(65536, "D").End(xlUp).Row
If Range("E" & i) = Sym.Range("D" & i2) Then Range("H" & i) = Sym.Range("F" & i2)
Next i2
Next i
End Sub

Yukarıdaki Kod Sayım 1 Sayfa1 in E2 hücresinden başlayarak E sütununda bulunan dolu hücreleri;
Sayım1 sayfasındaki D2 hücresinden başlayarak D sütununda bulunan dolu hücrelerle karşılaştırır. Sayım1 sayfasında uyan değerleri sayfa1 deki h sütununda ilgili yere yazar.
Örnek dosyada kodu deneyebilirsiniz.