DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
zannedersem yukarıdaki kod ısınızı gorursub kod()
.
.
.
.
Application.run "kaçıncıcalısması"
end sub
sub kaçıncıcalısması()
Range("b8").Value = Range("b8").Value * 1 + 1
End Sub