Işçi maliyetlerini icmale taşımak

[polis-53]

Tekrar Merhabalar Ekte gönderdiğim klasörün içindeki dosyaları icmal dosyasında rakamları toplatmak istiyorum arkadaşkar değişik dosyalarda uygulama yaptılar ben o kodları buna uyarlamaya çalıştım beceremedim şimdi sizlerden yardım bekliyorum tüm dosyalarda formant aynıdır sadece formüllü hücreleri toplatmayacak.

 

[Vedat Özer]

Selamlar,


Formülle isterseniz,

TOPLA.ÇARPIM ile istemiş oldugunuz verileri diğer dosyalardan alabilirsiniz.

 

[polis-53]

arkadaşlar kodla istiyorum

 

[polis-53]

Cevap vermediniz arkadaşlar yardım yokmu?

 

[Husgvarna]

Cevap vermediniz arkadaşlar yardım yokmu?

Aşağıdaki gibi deneyin ("MART" değişken olabilir)

 Private Sub CommandButton1_Click()
Range("b5:d23, b25:d26,b29:d32,b36:e37, b39:e39") = ""
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(ThisWorkbook.Path & "\")
Set dc = f.Files
For Each dosya In dc
If ThisWorkbook.Name <> dosya.Name Then
For z = 5 To 39
If Not IsNumeric(Cells(z, 2)) Then GoTo f:
If Cells(z, 2).HasFormula Then z = z + 1
If z = 28 Then z = z + 1
If z = 34 Then z = z + 2
Cells(z, 2) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[" & dosya.Name & "]MART'!R" & z & "C2") + Cells(z, 2)
Cells(z, 4) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[" & dosya.Name & "]MART'!R" & z & "C4") + Cells(z, 4)
If z > 35 And z < 38 Then
Cells(z, 3) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[" & dosya.Name & "]MART'!R" & z & "C3") + Cells(z, 3)
Cells(z, 5) = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[" & dosya.Name & "]MART'!R" & z & "C5") + Cells(z, 5)
End If
f:
Next
End If
Next
Range("b28:d28") = ""
End Sub

 

[polis-53]

çok teşekkür ederim kal sağlıcakla

 

[Husgvarna]

çok teşekkür ederim kal sağlıcakla

Rica ederim.