Asagida kodlarini verdigim kamroda yazim yanlisi var diyor, fakat nerede hata var bulamadim. Yardim ederseniz sevinirim.
a = 17
alınacakdosya = ComboBox1.Value
Yol = "\\Yedek\Belgeler\2008\2008\"
sayfa = "Sayfa1"
hepsi = " '" & Yol & "[" & alınacakdosya & "]" & sayfa & "'!R"
1 If ExecuteExcel4Macro(hepsi & a & "C5") <> 0 Then
a = 17
alınacakdosya = ComboBox1.Value
Yol = "\\Yedek\Belgeler\2008\2008\"
sayfa = "Sayfa1"
hepsi = " '" & Yol & "[" & alınacakdosya & "]" & sayfa & "'!R"
1 If ExecuteExcel4Macro(hepsi & a & "C5") <> 0 Then