Öncelikle herkese kolay gelsin...
Aşağıda yazdıgım kodun kırmızı ile işarelediğim bölümünde hata alıyorum... Sayfayı arıyor.. ( pencere açılıyor sayfa yönlendirmesi gerektiriyor)
ESC de yapsam sayfaya yazıyor ama sonunda end sub a gidiyoruz...
If dolu = False Then
.Cells(say, "A").Value = say - 2
.Cells(say, "B").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 3 & "C" & 3)
.Cells(say, "C").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 4 & "C" & 3)
.Cells(say, "D").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 7 & "C" & 3)
.Cells(say, "E").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 8 & "C" & 3)
.Cells(say, "F").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 14 & "C" & 9)
.Cells(say, "G").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 12 & "C" & 3)
.Cells(say, "H").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 9 & "C" & 3)
.Cells(say, "I").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 10 & "C" & 3)
______________________________________________________________________________________________________________
HTML:
- Refaz hocamın yardımı ile çözdüğüm ama office versiyon yükseltme ile hata aldıgım bir sorunum var...
Aşağıda yazdıgım kodun kırmızı ile işarelediğim bölümünde hata alıyorum... Sayfayı arıyor.. ( pencere açılıyor sayfa yönlendirmesi gerektiriyor)
ESC de yapsam sayfaya yazıyor ama sonunda end sub a gidiyoruz...
If dolu = False Then
.Cells(say, "A").Value = say - 2
.Cells(say, "B").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 3 & "C" & 3)
.Cells(say, "C").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 4 & "C" & 3)
.Cells(say, "D").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 7 & "C" & 3)
.Cells(say, "E").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 8 & "C" & 3)
.Cells(say, "F").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 14 & "C" & 9)
.Cells(say, "G").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 12 & "C" & 3)
.Cells(say, "H").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 9 & "C" & 3)
.Cells(say, "I").Value = Application.ExecuteExcel4Macro(yol1 & " R" & 10 & "C" & 3)
______________________________________________________________________________________________________________
HTML: