uurluyum
Altın Üye
- Katılım
- 25 Haziran 2019
- Mesajlar
- 124
- Excel Vers. ve Dili
- Excel Vers. ve Dili Ofis 2016 TR 32 Bit ve google e tablolar
- Altın Üyelik Bitiş Tarihi
- 12-10-2024
Arkadaşlar excell dosyasında vba ile yazılmış bir makro yu google e tablolarda nasıl çalışır hale getirebiliriz. örneğin :
Sub zaman()
Dim gsay As Date
gsay = Now + TimeValue("00:00:01")
Application.OnTime gsay, "son"
End Sub
Sub Son()
Dim aln As Range
Set aln = Application.ActiveSheet.Range("G2")
aln.Value = aln.Value + TimeSerial(0, 0, 1)
If aln.Value <= 0 Then
MsgBox "Geri Sayım Bitmştir... ", , "GERİ SAYIM"
Exit Sub
End If
Call zaman
End Sub
-------------
Sub zaman()
Dim gsay As Date
gsay = Now + TimeValue("00:00:01")
Application.OnTime gsay, "son"
End Sub
Sub Son()
Dim aln As Range
Set aln = Application.ActiveSheet.Range("G2")
aln.Value = aln.Value + TimeSerial(0, 0, 1)
If aln.Value <= 0 Then
MsgBox "Geri Sayım Bitmştir... ", , "GERİ SAYIM"
Exit Sub
End If
Call zaman
End Sub
-------------