sekmelerdeki ekran resimlerinden seçileni gösterme

[modoste]

Merhaba sayın hocalarım
autocad dosyasından bazı şekilleri EKLE/EKRAN GÖRÜNTÜSÜ ile çalışma sayfamda sekme adları (0+100,0+200,..........1+400) gibi 40-50 adet sekmeye yerleştirsem. B2:J15 arasına yerleştirsem bu şekilleri
ve herhangi bir sekmedeki şekle bakmam istediğimde direk görebilmem ile ilgili neler yapılabilir.

biraz daha ayrıntılı şöyle anlatsam
bir excel sayfamda 0+100, 0+200, 0+300 adlarında 3 tane sekmem var ve her sekmemde B2:J15 aralığında bir resim var. bu resimler EKLE/EKRAN GÖRÜNTÜSÜ ile elde edilmiştir. sayfamdaki son sekmem ise "SEÇİM" adıyla ve ben SEÇİM sekmesinin A1 hücresine 0+200 yazdığımda SEÇİM SEKMESİNİN B2:J15 arasına 0+200 sekmesindeki resim gelmesi gerekiyor.

 

[modoste]

ekli dosyamda istediklerimi gösterdim.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu "SEÇİM" Adlı sayfanın Kod Editörüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Integer
    Dim syf As Worksheet
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    For Each syf In ThisWorkbook.Sheets
        If syf.Name = Target.Text Then
                Worksheets("SEÇİM").Shapes(1).Delete
                Worksheets(Target.Text).Shapes(1).Copy
                Worksheets("SEÇİM").Range("b2").Select
                Worksheets("SEÇİM").Paste
            Exit Sub
        End If
    Next
End Sub

 

[modoste]

sayın dalgalikur
çözümü makro kodunu uraya eklediğim dosyaya ekleyemedim bir türlü
SEÇİM Sekmesine kodu kopyalıyorum ama bir sorun çıkıyo makroyu çalıştıramıyorum
siz ekli gönderebilir misiniz

 

[Muzaffer Ali]

Tamam hallettim.

 

[modoste]

gönderdiğiniz dosyayı açıyorum
seçim sekmesindeyken ALT+F8 ile makroyu açıyorum ama bizim yazdığımız makro gözükmüyor bunu anlayamadım.

 

[Muzaffer Ali]

Sizin buraya eklediğiniz dosyada hiç kod yoktu zaten. Dosya uzantısı "xlsx" olarak eklemişsiniz.

 

[modoste]

sayın hocam benim ilk eklediğim zaten sorumun çözümsüz hali
siz makroyu yazdınız ben bu dosyaya makroyu ekliyorum (makro içeren dosya olarak kaydediyorum)
sonra açtığım zaman makro yok görünüyo çalıştıramıyorum. yani sıkıntıyı anlayamadım.

sonra sizden makro ekli haliyle dosyayı istedim gönderdiniz yine ben açınca makro yok görünüyor.

 

[modoste]

hocam şimdi sizden gelen dosyada şunu yaptım oldu
SEÇİM SEKMESİNDE 0+300 yazdım ve CTRL+S yapınca 0+300 sekmesindeki şekil geldi

ben şöyle olcak zannediyordum
SEÇİM sekmesine 0+300 yazcam ve ALT+F8 yapınca açılan makroyu çalıştır dediğimde şekil gelecek zannediyordum. anlayamadığım buydu.


hocam şimdi ben bu sekmelerden 0+100,0+200,0+300 sekmelerinden yaklaşık 100-150 tane daha ekleyecem dosyaya
makronun çalışmasında sorun olmaz dimi

 

[Muzaffer Ali]

Yazdığım kodun çalışma şekli otomatik olacak şekilde ayarladım.
Yani A1 hücresinde bir veri değişikliği yapıp başka bir hücre seçince yada entere basınca kodlar otomatik çalışır.

Kodlar makro değildir prosedur dür onun için Ctrl+F8 e basınca göremiyorsunuz.

Kodları görmek için "SEÇİM" Sayfasının adını sağ tıklatıp "Kod Görüntüle" seçin.

 

[modoste]

çok teşekkür ederim hocam
şimdilik 10 sekmelik bir çalışma yaptım ve sonuçlar alıyorum

 

[Muzaffer Ali]

Rica ederim iyi çalışmalar dilerim.