Sayfalar Arası Eğer Makrosu

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
29 Temmuz 2017
Mesajlar
9
Excel Vers. ve Dili
excel 2013 türkçe
Altın Üyelik Bitiş Tarihi
04/08/2018
Öncelikle Merhabalar foruma yeni kaydolduğum için başlık açma konusunda sıkıntım olabilir lütfen mazur görün.

=EĞER(D12=Sayfa2!B3;Sayfa3!C3)

bu fonksiyonun makrosunu yazmada sıkıntı yaşadım bu konuda bana yardımcı olabilir misiniz acaba
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,219
Excel Vers. ve Dili
Excel-2003 Türkçe
=if cells(12,"d")=Sheets("Sayfa2").Range("b3”) then Sheets("Sayfa1").Range("a1”)=Sheets("Sayfa3").Range("c3”)

Burada makronun Sayfa1!A1 hücresine yazacağı varsayıldı. Sheets("Sayfa1").Range("a1”)
 
Katılım
29 Temmuz 2017
Mesajlar
9
Excel Vers. ve Dili
excel 2013 türkçe
Altın Üyelik Bitiş Tarihi
04/08/2018
=if cells(12,"d")=Sheets("Sayfa2").Range("b3”) then Sheets("Sayfa1").Range("a1”)=Sheets("Sayfa3").Range("c3”)

Burada makronun Sayfa1!A1 hücresine yazacağı varsayıldı. Sheets("Sayfa1").Range("a1”)
sanırım bir yerlerde yanlış yapıyorum makronuz hata veriyor yinede yardımınız için teşekkürler
 
Katılım
3 Haziran 2017
Mesajlar
797
Excel Vers. ve Dili
2007, 32
Altın Üyelik Bitiş Tarihi
08/06/2018
sanırım bir yerlerde yanlış yapıyorum makronuz hata veriyor yinede yardımınız için teşekkürler
Aşağıdaki kodu sayfa1'in kod alanına yapıştırarak dener misiniz?
Yalnız bu formül değil makro kodu.

Çalışma kitabınızda makrolarınızı etkileştirmelisiniz.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if cells(12,"d")=Sheets("Sayfa2").Range("b3”) then Sheets("Sayfa1").Range("a1”)=Sheets("Sayfa3").Rang e("c3”)

End Sub
 
Katılım
29 Temmuz 2017
Mesajlar
9
Excel Vers. ve Dili
excel 2013 türkçe
Altın Üyelik Bitiş Tarihi
04/08/2018
daha net olarak açıklamam gerektiğini hissettim.




resimdekiler gibi kullanıcı açısından kolaylık olması amacıyla bir fiyatlandırma işlemi yapıyorum. normalde formüller ile işimi rahatlıkla halletmem söz konusuydu ancak gel gelelim 64'den fazla iç içe formül'ü excel kabul edemediği için makro'lara el atmak durumunda kaldım.

konuyu açtığımda başlangıç olması açısından, sayfalar arası eğer makrosunu basit olarak nasıl yapıldığını kavrarsam kendi istediğim şekle sokabilir düşüncesindeydim ancak syntax error tarzı hatalar alıyorum. bu konuda yardımcı olursanız sevinirim
 
Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,175
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

64 adet iç içe EĞER formülü dediğiniz için mantıksız bir işlem yapıldığını anlıyorum.

Bunun yerine fiyat listenizi bir sayfaya oluşturun. Buradan DÜŞEYARA fonksiyonu ile rahatlıkla bilgileri istediğiniz hücreye alabilirsiniz. Böylece iç içe kurgu yapmaktan kurtulursunuz.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,175
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Örnek dosyanızı paylaşım sitelerine yükleyip linki foruma ekleyiniz.

Dosyanızın içinde de açıklama yazınız.
 

GursoyC

Altın Üye
Katılım
7 Ocak 2015
Mesajlar
558
Excel Vers. ve Dili
Office 2024 Türkçe
Altın Üyelik Bitiş Tarihi
17-05-2028
DÜŞEYARA'lı çözüm

ekteki dosyada düşeyara formüllü bir çözüm gönderdim.
liste sayfasında hangi şehrin yanında hangi birim yazmasını istiyorsanız onu doldurduğunuzda fiyat sayfanızdaki birimler seçtiğiniz şehre göre yazacaktır. (doğru anladıysam)

Korhan hoca'nın söylediğine katılıyorum. bence bu tarz bir çözüm daha çok işinizi görür.

https://www.dosyaupload.com/dih1
 

Ekli dosyalar

Katılım
29 Temmuz 2017
Mesajlar
9
Excel Vers. ve Dili
excel 2013 türkçe
Altın Üyelik Bitiş Tarihi
04/08/2018
ekteki dosyada düşeyara formüllü bir çözüm gönderdim.
liste sayfasında hangi şehrin yanında hangi birim yazmasını istiyorsanız onu doldurduğunuzda fiyat sayfanızdaki birimler seçtiğiniz şehre göre yazacaktır. (doğru anladıysam)

Korhan hoca'nın söylediğine katılıyorum. bence bu tarz bir çözüm daha çok işinizi görür.

https://www.dosyaupload.com/dih1
çok teşekkür ederim. düşeyara ile yine eğer gibi 64'den fazla ürünün olmayacağını düşünerek ön yargılı davranmıştım. sanırım çözüme kavuşturdum tekrar çok teşekkür ederim.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst