Örnek VBA yazılımı için yardım

[kbaydar]

Aşağıdaki VBA yazılımında YIL (2019) ve Ay (11) yerine dosya üzerindeki hücrelerden bilgi aldırabilir miyim?

Sub Makro3()
'
' Makro3 Makro
' P6 Hücresindeki kontol dosyasını açar. 13.11.2019 'da hazırlandı


    
    Dim Yıl     ' 2019 yazan yere, Excel de P2 hücresindeki bilgiler
    Dim Ay      ' 11 yazan yere, Excel de P3 hücresideki bilgiler
    Dim klasor
    Dim dosya
        
    ChDir "C:\Users\TOSHIBA1\Documents\ORTAK\SEOR\ÜretimDosyaları\2019\11"
    klasor = "C:\Users\TOSHIBA1\Documents\ORTAK\SEOR\ÜretimDosyaları\2019\11"
            
    dosya = Range("P6")
      
    
    Workbooks.Open Filename:=klasor & "\" & dosya
    Range("AK114").Select
    Windows("00-VeriGiriş.xlsm").Activate
    Range("B3").Select
    
    
    
End Sub

 

[EmrExcel16]

Aşağıdaki gibi deneyiniz.

ChDir "C:\Users\TOSHIBA1\Documents\ORTAK\SEOR\ÜretimDosyaları\" & [P2] & "\" & [P3]
klasor = "C:\Users\TOSHIBA1\Documents\ORTAK\SEOR\ÜretimDosyaları\" & [P2] & "\" & [P3]

 

[kbaydar]

Oldu, çok teşekkür ederim.

 

[EmrExcel16]

Oldu, çok teşekkür ederim.

Rica ederim , iyi çalişmalar.