makro düzeltme

[erdenek]

arkadaşlar ekteki dosyada kapalı dosyadan veri alırken sıfırları almıyor.Neden acaba?bunu nasıl düzeltiriz.

 

[Baggwell]

Merhaba, aşağıdaki kodları deneyiniz sıfırları da getiriyor

Sub KOD()
Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\Kapalı.xls"
Workbooks.Open (yol)
Workbooks("Kapalı").Sheets("Sayfa1").Range("a1:z100").Copy _
Workbooks("Açık").Sheets("Sayfa1").Range("a1")
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

Alternatifler;
http://www.excel.web.tr/f117/kapaly-dosyadan-veri-al-3-ozum-t135311.html#post732794

 

[erdenek]

çok teşekkür ederim ellerine sağlık.

 

[halit3]

arkadaşlar ekteki dosyada kapalı dosyadan veri alırken sıfırları almıyor.Neden acaba?bunu nasıl düzeltiriz.

Cells(bas_satir_no, say).Value = ExecuteExcel4Macro(deg3 & r & "C" & j) 'kapalı dosyadaki değerlere ait prosüdür
If Cells(bas_satir_no, say).Value = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

yukarıdaki bölümü aşağıdakiyle değiştir.

Cells(bas_satir_no, say).Value = "=COUNTA(" & deg3 & r & "C" & j & ")"
deg9 = Cells(bas_satir_no, say).Value
Cells(bas_satir_no, say).Value = ExecuteExcel4Macro(deg3 & r & "C" & j) 'kapalı dosyadaki değerlere ait prosüdür
If deg9 = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

 

[erdenek]

Cells(bas_satir_no, say).Value = ExecuteExcel4Macro(deg3 & r & "C" & j) 'kapalı dosyadaki değerlere ait prosüdür
If Cells(bas_satir_no, say).Value = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

yukarıdaki bölümü aşağıdakiyle değiştir.

Cells(bas_satir_no, say).Value = "=COUNTA(" & deg3 & r & "C" & j & ")"
deg9 = Cells(bas_satir_no, say).Value
Cells(bas_satir_no, say).Value = ExecuteExcel4Macro(deg3 & r & "C" & j) 'kapalı dosyadaki değerlere ait prosüdür
If deg9 = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

teşekkür ederim ellerine sağlık halit3 üstad