link in gidecegi yerin farkedilmesi hk.

[zetkatamet]

Arkadaslar,
Ekteki dosyada sayfa 1 de 4 adet seçenek bulunmakta. Bunlara link verildiğinde sayfa 2 deki gibi sonuçlanmasını rica ederim.
Cozum sanırsam makro ile olabilecek, makrosuz cozum veya makrosuz baska fikirler olursa cok memnun olurum.
Saygılar.

 

[hurkanpisirici]

Merhaba ben bir çözüm ürettim ama incelermisiniz

Arkadaslar,
Ekteki dosyada sayfa 1 de 4 adet seçenek bulunmakta. Bunlara link verildiğinde sayfa 2 deki gibi sonuçlanmasını rica ederim.
Cozum sanırsam makro ile olabilecek, makrosuz cozum veya makrosuz baska fikirler olursa cok memnun olurum.
Saygılar.

Merhaba ben bir çözüm ürettim ama incelermisiniz.

 

[zetkatamet]

Merhaba,
Soyle demek istemistim.
Mesela 1.deger secilecek, sayfa 2 de 1.degeri ilgilendiren yer kırmızı olacak.
Kullanıcı 2.degeri tiklarsa sayfa 2 de ilgili yer kızmızı olacak.
tesekkurler

 

[hurkanpisirici]

bu işi düğme ile halletsek olmuyormu illaki yazıyamı olması şart?

 

[hurkanpisirici]

birde buna bakın

Merhaba,
Soyle demek istemistim.
Mesela 1.deger secilecek, sayfa 2 de 1.degeri ilgilendiren yer kırmızı olacak.
Kullanıcı 2.degeri tiklarsa sayfa 2 de ilgili yer kızmızı olacak.
tesekkurler

birde buna bakın

 

[zetkatamet]

Sn.Hürkan,
İlginize teşekkürler.
Ekteki dosyaya birkez daha bakabilirmisiniz.

 

[zetkatamet]

eki unutmusum

 

[hurkanpisirici]

bu daha aydınlatıcı olmuş ama ben yazıya makro atamayı bilmiyorum mutlaka yapacak hocalarımız vardır.

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü?

 

[zetkatamet]

hocam elinize sağlık,
makro kodlarını göremiyorum. benim yapmak istediğim esas örnekte yaklaşık 30 adet seçenek var. kodlara göre adapte etmem gerekecek.
güzel bir çalışma olmuş, işime yarayacak.

 

[uzmanamele]

merhaba

sayfa1'in kod bölümüne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [b4:b7]) Is Nothing Then Exit Sub
alan = Target.Text
Application.Goto alan
With Selection.Interior
        .ColorIndex = 3
    End With
End Sub

sayfa2'nin kod bölümüne

Private Sub Worksheet_Deactivate()
Cells.Interior.ColorIndex = xlNone
End Sub

sayfa1 deki değerler için ad tanımlanmıştır. ilgili hücreyi tıkladığınızda hem seçilen alana gider hemde o alanı renklendirir. sayfadan çıkışta bütün alanlardaki dolgu renkleri silinir.

 

[zetkatamet]

hocam,
bana göndermiş oldunuz örnekte bu kodların gözükmesini sağlayabilirmisiniz, yeni örnekte bu kodları kopyalayıp beceremedimde.
makro konusunda acemiyim.
teşekkürler.

 

[uzmanamele]

hocam,
bana göndermiş oldunuz örnekte bu kodların gözükmesini sağlayabilirmisiniz, yeni örnekte bu kodları kopyalayıp beceremedimde.
makro konusunda acemiyim.
teşekkürler.

merhaba
sayfa adını sağ tıkla, "kod görüntüle"

 

[zetkatamet]

tekrar teşekkürler, iyi çalışmalar