kod için yardım

[moebius06]

Private Sub CommandButton1_Click()
[A:C] = Empty
Dim ds, f, dc, a
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(ThisWorkbook.Path & "\Dosyalar\")
Set dc = f.Files
For Each dosya In dc
c = c + 1
Cells(c, 1) = dosya.Name
Cells(c, 2) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R3C3")
Cells(c, 3) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R4C4")
Cells(c, 4) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\Dosyalar\[" & dosya.Name & "]sayfa1'!R9C8")
Cells(c, 1).Select
Next
End Sub

bu kodda başlangıç ( çekilen veriyi a1 hücresinden başlayarak yazıyor...
a1 den değilde başka bir yerden ( a5 yada c4 gibi bir hücreden) başlatarak nasıl yazdırırız ....

saygılar

 

[Orion1]

a5 ten başlar.

c = 4
For Each dosya In dc
Cells(c, 1) = dosya.Name
'kodlar
c = c + 1
Next

 

[moebius06]

hocam çok teşekkürler, eline sağlık..

öğrenmek için soruyorum.....c yazdığımızda "a" diye başlıyor...peki b,d yada başka bir satırdan b4 d7 gibi nasıl başlatırız...
saygılar

 

[Orion1]

sat=satır,sut = sütun.
C2 için;
buyurun.

sat = 2
sut = 3
MsgBox Cells(sat, sut).Value

 

[moebius06]

hocam
kusura bakma
verdiğin ilave kodu yapamadım....??
sürekli fazladan olmayan bir satır oluşturup farklı verileri çekiyor....

 

[Orion1]

hocam
kusura bakma
verdiğin ilave kodu yapamadım....??
sürekli fazladan olmayan bir satır oluşturup farklı verileri çekiyor....

ilave kod sadece bilgi içindi.onu siz kendi durumunuza göre yazacaksınız.

 

[moebius06]

hocam
en azından neden veri çektiği sayfaları açarak hata veriyor....onu söyleseniz bari....
veriyi çektiği her sayfayı tekrar açıp hata veriyor

 

[moebius06]

düzelttim...teşekkürler

 

[Orion1]

hocam
en azından neden veri çektiği sayfaları açarak hata veriyor....onu söyleseniz bari....
veriyi çektiği her sayfayı tekrar açıp hata veriyor

Açmaması lazım.
yol da veya sayfa adında hata var.