Değerli arkadaşlar ekte yer alan çalışmada Ana_sayfada yer alan butona tıklanınca buton üzerinde yer alan metnin Ekran sayfasında yer alan A1 hücresine taşınmasını istiyorum...Böylelikle taşınan ve A1 hücresinde yer alan metne göre veri sayfasından uygun verilerin taşınmasını sağlamak istiyorum...Yardımlarınızı bekliyorum, saygılarımla...
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Butonda yer alan metnin başka sayfaya taşınması
- Konbuyu başlatan pisagor26
- Başlangıç tarihi
ccuneyt13
Altın Üye
- Katılım
- 20 Ocak 2011
- Mesajlar
- 478
- Excel Vers. ve Dili
- Office 365 Türkçe (64 bit)
Merhaba,
Çok amatörce olacak belki ama üstatlar daha iyi bir kod vereceklerdir.
Ancak belki işinize yarar diye paylaşmak istedim.
Aşağıdaki kodları bir modüle ekleyin ve daha sonra butonlara sağ tıklayıp "makro ata" yapın ve ilgili metnin ismine sahip makroyu ilgili butonunuza atayın.
" işaretinin arasındaki metni değiştirerek istediğiniz butonları çoğalta bilirsiniz.
Umarım işinize yarar,
Çok amatörce olacak belki ama üstatlar daha iyi bir kod vereceklerdir.
Ancak belki işinize yarar diye paylaşmak istedim.
Aşağıdaki kodları bir modüle ekleyin ve daha sonra butonlara sağ tıklayıp "makro ata" yapın ve ilgili metnin ismine sahip makroyu ilgili butonunuza atayın.
" işaretinin arasındaki metni değiştirerek istediğiniz butonları çoğalta bilirsiniz.
Umarım işinize yarar,
Kod:
Sub Ortahisar()
Sheets("EKRAN").Select
Range("a1").Value = "[COLOR="Red"]ORTAHİSAR[/COLOR]"
End Sub
Kod:
Sub YOMRA()
Sheets("EKRAN").Select
Range("a1").Value = "YOMRA"
End Sub- Katılım
- 4 Haziran 2005
- Mesajlar
- 15,622
- Excel Vers. ve Dili
- Ofis 365 Türkçe
Merhaba,
İki buton da da aşağıdaki kodları kullanabilirsiniz.
Yalnız Butonların isimlerini YOMRA ve ORTAHİSAR olarak adlandırınız.
İki buton da da aşağıdaki kodları kullanabilirsiniz.
Yalnız Butonların isimlerini YOMRA ve ORTAHİSAR olarak adlandırınız.
Kod:
Sub Yaz()
Sheets("EKRAN").Range("A1") = Application.Caller
End Subccuneyt13
Altın Üye
- Katılım
- 20 Ocak 2011
- Mesajlar
- 478
- Excel Vers. ve Dili
- Office 365 Türkçe (64 bit)
Geç kalmışım
Est. üstat, ben belirtmiştim zaten daha iyi bir kod vereceğinizi
Sizin yanınız da benimki cevaptan sayılmaz
Saygılar.
- Katılım
- 4 Haziran 2005
- Mesajlar
- 15,622
- Excel Vers. ve Dili
- Ofis 365 Türkçe
Est. üstat, ben belirtmiştim zaten daha iyi bir kod vereceğinizi
Sizin yanınız da benimki cevaptan sayılmaz
Saygılar.
Rica ederim, önemli olan kodun çalışması.
Doğru Yolda mıyım?
Değerli üstatlar ekteki çalışmada uygulama yapmaya çalıştım...Bazen makro atarken hata veriyor. Sanki bir şeyleri atlayıp uzatıyorum...
( Altı tane makro oluşturdum. Bu şekilde toplam 18 makro oluşması gerekiyor ve ayrıca aynı mantıkla 6 ders daha ekleyeceğim...Saygılarımla...
Değerli üstatlar ekteki çalışmada uygulama yapmaya çalıştım...Bazen makro atarken hata veriyor. Sanki bir şeyleri atlayıp uzatıyorum...
( Altı tane makro oluşturdum. Bu şekilde toplam 18 makro oluşması gerekiyor ve ayrıca aynı mantıkla 6 ders daha ekleyeceğim...Saygılarımla...- Katılım
- 4 Haziran 2005
- Mesajlar
- 15,622
- Excel Vers. ve Dili
- Ofis 365 Türkçe
Merhaba,
benim önerimi dikkate almamışsınız.
Ben ilçeler için düzenledim, inceleyiniz.
Hem ilçeler için hem dersler için tek bir makro yaptım.
Dersler için butonlar olmadığı için onu size bıraktım. Buton isimlerine bakınız.
benim önerimi dikkate almamışsınız.
Ben ilçeler için düzenledim, inceleyiniz.
Hem ilçeler için hem dersler için tek bir makro yaptım.
Dersler için butonlar olmadığı için onu size bıraktım. Buton isimlerine bakınız.
Kod:
Sub İLÇELER()
Sheets("EKRAN_İLÇE").Select
Range("a2").Value = Application.Caller
End Sub
Kod:
Sub DERS()
Sheets("İLÇE_DERS").Select
Range("a2").Value = Application.Caller
End Sub