Sub gg()
say = 1
For i = Range("a1") To Range("b1")
If i Mod 7 = 2 Or i Mod 7 = 3 Or i Mod 7 = 5 Or i Mod 7 = 6 Then
Range("D" & say).Value = CDate(i)
say = say + 1
End If
Next
End Sub
İyi akşamlar. Bu kodu makroya kaydedip microsoft office excelden sorunsuz çalıştırabiliyorum ancak aynı dosyayı libreoffice ile açınca kod çalışmıyor. çalışma zamanı hatası veriyor. bu kodu libreofficede sorunsuz nasıl çalıştırabilirim
say = 1
For i = Range("a1") To Range("b1")
If i Mod 7 = 2 Or i Mod 7 = 3 Or i Mod 7 = 5 Or i Mod 7 = 6 Then
Range("D" & say).Value = CDate(i)
say = say + 1
End If
Next
End Sub
İyi akşamlar. Bu kodu makroya kaydedip microsoft office excelden sorunsuz çalıştırabiliyorum ancak aynı dosyayı libreoffice ile açınca kod çalışmıyor. çalışma zamanı hatası veriyor. bu kodu libreofficede sorunsuz nasıl çalıştırabilirim