hücreleri bir arttırma

[maxinus]

Arkadaşlar bende şöyle bir kod var
--------------------
sayfa = Format([c5], "dd_mm_yy")
For a = 6 To 25
Cells(a, "c") = ExecuteExcel4Macro("'C:\[deneme_2.xls]" & sayfa & "'!R" & a & "C3")
Next
-------------------
bu kod sadece c5 i kontrol ediyor ben istiyorum ki d5, e5 bütün 5 satırını kontrol etsin ve c5 c sütununa d yi d sütuna yazsın.

 

[maxinus]

Lütfen yardım edermisiniz cok acil..

 

[bedersu]

Merhaba,
Örnek dosya gönderir ve biraz daha açıklama yaparsanız yardımcı oluruz İnşallah.Şu an gerçekten ne yapmak istediğinizi anlamadım.

 

[maxinus]

Deneme.xls kitabında göster sayfasında göster butonuna bastığımda deneme_2.xls kitabındaki bütün sayfalarda ki c6:ile c25 arasındaki değerler bu göster sayfasındaki her tarihin altındaki hücrelere yazılacak.
Noteneme_2.xls c sürücüsünün altında olması gerekiyor.Benim istediğim şeyi yaptım ama göster sayfasında sadece c5 hücresini alıyor deneme_2.xls e kitabından teşekkür ederim.

 

[bedersu]

merhaba,
Aşağıdaki kodlar işinize yarayacaktır:

Private Function GetValue(path, file, sheet, ref)
Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = ""
MsgBox "Lütfen dosya yolunu tekrar kontrol ediniz.", vbCritical, "Dosya yolu bulunamadı."
End
End If
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function



Sub goster2()
p = "c:\"
f = "deneme_2.xls"

For t = 1 To Workbooks("deneme_2.xls").Worksheets.Count
s = Workbooks("deneme_2.xls").Sheets(t).Name

For k = 6 To 25
a = Cells(k, 3).Address
Cells(k, t + 2) = GetValue(p, f, s, a)
Next
Next
End Sub