eğer ile şekil ekleme ve bir excelde sayafalar içinde köprü kurma...

[kralumut]

eğer a1 hücresine 1 yazarsan d1 hücresine bir daire eklensin... 2 yazarsan 2 daire eklensin. 3 yazarsan 3, ...... diğer sorum: Bir excel dosyasını içinde 1. ve 2. sayfalar arasında nasıl köprü kurabilirm? tşkler...

 

[Ömer]

Merhaba,

Daire eklemekten kastınız nedir?

=EĞER(A1="";"";A1&" Daire")

İstediğiniz bu mu?

Köprü için,

Menülerden Ekle / Köprü seçeneğini inceleyiniz..

.

 

[kralumut]

hayır... şekil eklenecek, daire resmi bayrak vs...

 

[Ömer]

Çalışma sayfasının kod bölümüne kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
ActiveSheet.DrawingObjects.Delete
    For i = 1 To Target
        ActiveSheet.Shapes.AddShape(msoShapeOval, _
        152.25, 1.5, 37.5, 11.25).Select
    Next i
Target.Select
End Sub

.

 

[kralumut]

keşke bunu yapabilseydim...office 2007 var...makro sanırım bu. gene de tşklr..demek basit yollarla yapılmıyor..tşklr...

 

[konas06]

keşke bunu yapabilseydim...office 2007 var...makro sanırım bu. gene de tşklr..demek basit yollarla yapılmıyor..tşklr...

Değerli arkadaşım niye bu kadar çabuk pes ediyorsun.
Belki işine çok yarayacak bir çalışma olabilir. İstediğin konuyu bir örnek ile destekler misin.
Mutlaka umduğundan daha basit bir şekilde çözüm bulacağına eminim.