Dosya Bulma

[serkankeser]

Herkese Merhaba;
Belgelerimin altında "NÖBET" ismli klasörün içersinde OCAK,ŞUBAT,.......ARALIK isminde excel çalışma kitaplarım var. A1 hücresinin değeri hangi ay ise Nöbet klasörünün içersindeki çalışma kitabını açıp A3:G33 arasındaki alanı kopyalayıp "kitap1" "sayfa1" "A2" hücresinden itibaren kopyalamak istiyorum.
Aşağıdaki kodla bu işemi tek bir ay için yapıyorum ama oniki ay için kod uzayıp gidiyor yani gerekli döngüyü kuramadım. Yardımlarınız için şimdiden teşekkürler.
If Range("A1").Value = "OCAK" Then
ChDir "C:\Documents and Settings\Administrator\Belgelerim\NÖBET"
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Belgelerim\NÖBET\OCAK.xls"
Sheets("nöbet giriş").Select
Range("A3:G33").Select
Selection.Copy
Windows("Kitap1.xls").Activate
Range("A2").Select
ActiveSheet.Paste
End If
End Sub

 

[Recep İpek]

Aşağıdaki şekilde deneyiniz.

Sub DosyaBul()
ChDir "C:\Documents and Settings\Administrator\Belgelerim\NÖBET"
Workbooks.Open Filename:= _
"C:\Documents and Settings\Administrator\Belgelerim\NÖBET\" & [A1] & ".xls"
Sheets("nöbet giriş").Select
Range("A3:G33").Select
Selection.Copy
Windows("Kitap1.xls").Activate
Range("A2").Select
ActiveSheet.Paste
End Sub

 

[serkankeser]

Çok teşekkürler sayın ripek.