Metin kutusunun yer

[korfez]

Arkadaşlar,
Çalışma sayfasında yer alan bir metin kutusunun, hangi hücre veya hücreler üzerinde bulunduğunu gösteren bir makro kodu komut var mı. Þimdiden teşekkürlerimi sunarım.

 

[ALPEN]

Metin kutusunun adi "textbox1"
Bulundugu sayfa "Sayfa1"

dersek

[vb:1:511473210e]MsgBox Worksheets("Sayfa1").Shapes("textbox1").TopLeftCell.Address[/vb:1:511473210e]


Edit;

Soruyu tam okumamışım.

Sol üst köşesi için

[vb:1:511473210e]MsgBox "Kutunun sol üst köşe hücresi ; " & Worksheets("Sayfa1").Shapes("textbox1").TopLeftCell.Address[/vb:1:511473210e]

sağ alt köşe için.

[vb:1:511473210e]MsgBox "Kutunun sağ alt köşe hücresi ; " & Worksheets.("Sayfa1").Shapes("textbox1").bottomrightcell.Address[/vb:1:511473210e]


yani

[vb:1:511473210e]su = Worksheets("Sayfa1").Shapes("textbox1").TopLeftCell.Address(0, 0)
sa = Worksheets("Sayfa1").Shapes("textbox1").BottomRightCell.Address(0, 0)
Range(su & ":" & sa).Select[/vb:1:511473210e]

 

[Levent Menteşoğlu]

Sn ALPEN

Bu komutları bende yeni öğrenmiş oldum. Teşekkürler

 

[ALPEN]

Bende Raider'dan öğrenmiştim.

 

[korfez]

Arkadaşlar,
Verdiğiniz kodlar için teşekkürler, bu konuyu da öğrenmiş oldum.

 

[Haluk]

Bende Raider'dan öğrenmiştim.

Bizim senden öğrendiklerimizin yanında bunlar hiç sayılır...