Dinamik sayfa seçimi

[mmuratakgul]

Merhabalar,

Rapor hazırlamak için User form ile ilgili ayı seçiyorum ve ayın ismine göre macro ile yeni bir sayfa açtırıyorum. Hamdata sayfamdaki dataları bu yeni açtığım sayfaya belirli bir sırada cut paste yapmak istiyorum. Benim sorunum normalde Worksheets("Ham rapor").Select komutu çalışıyor (önceden tanımlı sayfa olduğundan). Fakat bunu dinamik sayfa olarak yazmak istediğimde yani Worksheets(aylar).Select komutunda hata veriyor.

Yeni sayfa ekleme kodum:
Set NewSheet = Sheets.Add(after:=Sheets("ham rapor"), Type:=xlWorksheet)
NewSheet.Name = aylar

Aylar: ocak,şubat,mart.... şeklinde tanımlı

 

[Ömer]

Merhaba,

Sorunuzu bu şekilde tam olarak anlayamadım.

Worksheets("" & aylar & "").Select

Bu şekilde deneyin. Eğer sorun devam edersen küçük bir örnek dosya ile açıklamanızı rica ederim.

.

 

[Korhan Ayhan]

Eğer "aylar" tanımlamanız array bir tanımlama ise aşağıdaki gibi kullanmanız gerekir.

WorkSheets(Cstr(Aylar(1))).Select

1 değeri ilgili sıradaki ayı temsil eder. Kendinize göre düzenlemelisiniz.