- Katılım
- 19 Ekim 2022
- Mesajlar
- 2
- Excel Vers. ve Dili
- Excel 2019 Pro
Selamlar,
Elimde çalışan bu Vba kodu mevcut, bu kodu google e-tabloda çalıştırmak için nasıl dönüştürmem gerekiyor ?
Teşekkürler ^^
Elimde çalışan bu Vba kodu mevcut, bu kodu google e-tabloda çalıştırmak için nasıl dönüştürmem gerekiyor ?
Teşekkürler ^^
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E20:E22]) Is Nothing Then GoTo ıkı
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
ıkı:
If Intersect(Target, [F23]) Is Nothing Then GoTo uc
On Error GoTo hata
Range("E23").Value = Range("F23").Value + Range("E23").Value
uc:
If Intersect(Target, [E21]) Is Nothing Then GoTo dort
On Error GoTo hata
Range("F20").Value = Range("E21").Value - Range("F20").Value
dort:
If Intersect(Target, [E22]) Is Nothing Then Exit Sub
On Error GoTo hata
Range("F20").Value = Range("E22").Value - Range("F20").Value
Exit Sub
hata:
End Sub