Çözüldü Düşeyara Makro

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
593
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
Altın Üyelik Bitiş Tarihi
21-11-2024
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.
 
Katılım
6 Mart 2005
Mesajlar
6,233
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
Deneyiniz.
Kod:
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

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,794
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Altın Üyelik Bitiş Tarihi
12-02-2029
Teşekkürler Sayın Çıtır,
Saygılarımla
 

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
593
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
Altın Üyelik Bitiş Tarihi
21-11-2024
Katılım
5 Temmuz 2009
Mesajlar
28
Excel Vers. ve Dili
Ofis 2016 Türkçe
Altın Üyelik Bitiş Tarihi
16-11-2019
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))
 
Katılım
25 Şubat 2019
Mesajlar
87
Excel Vers. ve Dili
Office 2021 (TR)
Altın Üyelik Bitiş Tarihi
27-02-2024
Deneyiniz.
Kod:
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.
 
Üst