- Katılım
- 29 Ekim 2006
- Mesajlar
- 22
- Excel Vers. ve Dili
- office xp 2004
yardımcı olursanız sevinirim tek başıma işin içinden çıkamadım zaman azalıyor.acil yardım şimdiden teşekkür ederim
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Target.Offset(0, 4).Value = IIf(Target = Empty, Empty, "=C" & Target.Row & "-D" & Target.Row)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Target.Offset(0, 4).Value = IIf(Target = Empty, Empty, "=E3+E" & Target.Row - 1)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Target.Offset(0, 4).Value = IIf(Target = Empty, Empty, "=E" & Target.Row - 1 & "-D" & Target.Row & "+C" & Target.Row)
End Sub