Aynı satırda ikinci ve üçüncü hücre.

[desk]

Cells(Satır, 1) = Alt_Dosya.Path & "\" & Dosya
Cells(Satır, 2) = ExecuteExcel4Macro("'" & Alt_Dosya.Path & "\[" & Dosya & "]Sayfa1'!R28C17")

Burda yapmak istediğim aynı satırda bir sonraki sütuna R29C17 yi R30 C17 yide bastırmak veya sayfanın herhangi bir yerinden bir kaç hücre daha ekletmek istiyorum.
Tşk ler.

Cells(Satır, 1) = Alt_Dosya.Path & "\" & Dosya
Cells(Satır, 2) = ExecuteExcel4Macro("'" & Alt_Dosya.Path & "\[" & Dosya & "]Sayfa1'!R28C17,Sayfa1'!R29C17")
gibi yaptım olmadı tam olarak nasıl yapmalıyım.

 

[hamitcan]

Cells(Satır, 3) = ExecuteExcel4Macro("'" & Alt_Dosya.Path & "\[" & Dosya & "]Sayfa1'!R29C17")

şeklinde deneyin