Application.Dialogs(i) başlık

[hsayar]

'  Application.Dialogs(354).Show    'Sayfa Ekleme
'  Application.Dialogs(1).Show    'Çalışma Kitabı Aç
'   Application.Dialogs(5).Show    'Farklı Kaydet
'   Application.Dialogs(6).Show      'Sil
'    Application.Dialogs(7).Show      'Sayfa Yapısı
'  Application.Dialogs(302).Show    'Sayfa Ekleme
'  Application.Dialogs(119).Show   'Sadece Çalışma Kitabı ve Xltler

oludğunu biliyoruz tek tek denemek yerine
For döngüsü kurup i değerlerini sayfa1 a2 den itibaren yazmak mümkünmü acaba

For i = 1 To DiologSayısı
i = 1 ise   Sayfa1!a2 =1 Sayfa1!b2 = Çalışma Kitabı Aç 
i = 5 ise   Sayfa1!a3 =5 Sayfa1!b3 = Farklı Kaydet 
i = 6 ise   Sayfa1!a4 =6 Sayfa1!b4 = Sil  
i = 7 ise   Sayfa1!a4 =7 Sayfa1!b5 = Sayffa yapısı

 

[Levent Menteşoğlu]

Bu dialogların isimlerini veren veren bir kodlama yok bildiğim kadarıyla (indexler bulunabilir ancak adı olmayınca bir manası olmaz) ancak bu listeyi nette veya vba yardımda ararsanız kolayca bulabilirsiniz. Aşağıdaki linkte tam listeyi bulabilirsiniz.

http://msdn2.microsoft.com/en-us/library/aa221648(office.11).aspx

 

[hsayar]

ilginize teşekkür ederim hocam