Çözüldü Düşeyara Makro

[gicimi]

Merhaba;

=DÜŞEYARA(F2;$A$1:$D$1000;2;0)

=DÜŞEYARA(A14;Sayfa2!A:I;2;0)


Yukarıdaki formülleri Makro olarak nasıl yazılabilir yardımcı olabilir misiniz. Teşekkürler.

 

[çıtır]

Deneyiniz.

Sub düşeyara()
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

s1.Range("G2") = WorksheetFunction.VLookup(s1.Range("F2"), s1.Range("A1:D1000"), 2, 0)
s1.Range("H2") = WorksheetFunction.VLookup(s1.Range("A14"), s2.Range("A:I"), 2, 0)
End Sub

 

[Tevfik_Kursun]

Teşekkürler Sayın Çıtır,
Saygılarımla

 

[çıtır]

Teşekkürler Sayın Çıtır,
Saygılarımla

Rica ederim.Saygılar bizden.Teşekkür ederim.

 

[gicimi]

Sayın @çıtır teşekkürler.

 

[çıtır]

Sayın @çıtır teşekkürler.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[afdoner]

Merhaba, aşağıdaki formülleri Makroya nasıl çevirebilirim? Yardımlarınız için şimdiden teşekkürler..

=EĞER(A3="";"";EĞERYOKSA(İNDİS($L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;$A$3:$A$100000&$C$3:$C$100000&$E$3:$E$100000&$G$3:$G$100000&$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('EkimP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'EkimP 2018'!$A$3:$A$100000&'EkimP 2018'!$C$3:$C$100000&'EkimP 2018'!$E$3:$E$100000&'EkimP 2018'!$G$3:$G$100000&'EkimP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('KasımP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'KasımP 2018'!$A$3:$A$100000&'KasımP 2018'!$C$3:$C$100000&'KasımP 2018'!$E$3:$E$100000&'KasımP 2018'!$G$3:$G$100000&'KasımP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('AralıkP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'AralıkP 2018'!$A$3:$A$100000&'AralıkP 2018'!$C$3:$C$100000&'AralıkP 2018'!$E$3:$E$100000&'AralıkP 2018'!$G$3:$G$100000&'AralıkP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('OcakP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'OcakP 2018'!$A$3:$A$100000&'OcakP 2018'!$C$3:$C$100000&'OcakP 2018'!$E$3:$E$100000&'OcakP 2018'!$G$3:$G$100000&'OcakP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('SubatP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'SubatP 2018'!$A$3:$A$100000&'SubatP 2018'!$C$3:$C$100000&'SubatP 2018'!$E$3:$E$100000&'SubatP 2018'!$G$3:$G$100000&'SubatP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('MartP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'MartP 2018'!$A$3:$A$100000&'MartP 2018'!$C$3:$C$100000&'MartP 2018'!$E$3:$E$100000&'MartP 2018'!$G$3:$G$100000&'MartP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('NisanP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'NisanP 2018'!$A$3:$A$100000&'NisanP 2018'!$C$3:$C$100000&'NisanP 2018'!$E$3:$E$100000&'NisanP 2018'!$G$3:$G$100000&'NisanP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('MayısP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'MayısP 2018'!$A$3:$A$100000&'MayısP 2018'!$C$3:$C$100000&'MayısP 2018'!$E$3:$E$100000&'MayısP 2018'!$G$3:$G$100000&'MayısP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('HaziranP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'HaziranP 2018'!$A$3:$A$100000&'HaziranP 2018'!$C$3:$C$100000&'HaziranP 2018'!$E$3:$E$100000&'HaziranP 2018'!$G$3:$G$100000&'HaziranP 2018'!$H$3:H$100000;0))));0)+EĞERYOKSA(İNDİS('TemmuzP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'TemmuzP 2018'!$A$3:$A$100000&'TemmuzP 2018'!$C$3:$C$100000&'TemmuzP 2018'!$E$3:$E$100000&'TemmuzP 2018'!$G$3:$G$100000&'TemmuzP 2018'!$H$3:$H$100000;0))));0)+EĞERYOKSA(İNDİS('AgustosP 2018'!$L$3:$L$100000;TOPLA.ÇARPIM((KAÇINCI(A3&C3&E3&G3&H3;'AgustosP 2018'!$A$3:$A$100000&'AgustosP 2018'!$C$3:$C$100000&'AgustosP 2018'!$E$3:$E$100000&'AgustosP 2018'!$G$3:$G$100000&'AgustosP 2018'!$H$3:$H$100000;0))));0))

 

[katip06]

Deneyiniz.

Sub düşeyara()
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

s1.Range("G2") = WorksheetFunction.VLookup(s1.Range("F2"), s1.Range("A1:D1000"), 2, 0)
s1.Range("H2") = WorksheetFunction.VLookup(s1.Range("A14"), s2.Range("A:I"), 2, 0)
End Sub

Sayın çıtır düşeyara formülünde aranılan hücreyi formüle yazdıktan sonra aşağı doğru çekince diğer hücrelere uyguluyor ya peki bu olayı makroda nasıl yapacaz, mesela senin örnekte F2 de aranılan değeri G2 ye yazıyor, F3 deki değeri G3'e, F4 deki değeri F4 e (1000 kayıt için) nasıl yaparız.

 

[Korhan Ayhan]

Linki inceleyiniz.

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/

 

[katip06]

Linki inceleyiniz.

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/

Çok sağol Korhan Ayhan hocam, teşekkür ederim.