Otomatikman Listeye Ekleme

[formentera]

Merhabalar,

Bir listem var 20 isimlik, bu listemin adı: firmalar.
Ben 21. satıra isim yazdığımda ad yöneticisinden firmaları editlemeden o 21. yazdığımın listeye eklenmesini istiyorum.

Böyle bir şey var mıdır? Ya da aklınıza bu yönde ihtiyacımı giderecek bambaşka bir şey gelebilir mi? Yani belirttiğim gibi olmaz başka bir şey olur belki

Yardımlarınız için şimdiden teşekkür ederim.

 

[PLİNT]

Merhaba
Tanımlanmış adın "A" sütununda olduğunu varsayarak, şöyle olabilir.

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
a = ActiveWorkbook.Names("firmalar").RefersToRange.Count
If Target.Row <> a + 1 Then Exit Sub
ActiveWorkbook.Names("firmalar").RefersToR1C1 = "=Sayfa1!R1C1:R" & a + 1 & "C1"
End Sub [/SIZE]

 

[hoguz2]

http://www.excel.gen.tr/Makale_020.asp

değişken alan adı tanımlama hakkında bir tip

 

[formentera]

teşekkürler emeğiniz için.

 

[formentera]

makale cidden tam aradığım şey. Çok sağolun.

 

[hoguz2]

rica ederim . evet fark ettim.