DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sütun As Byte
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) Then
Sütun = Range("IV8").End(xlToLeft).Column + 1
If Cells(8, Sütun) = "" And Cells(7, Sütun) = Date Then
Cells(8, Sütun) = Cells(8, Sütun) + Range("B4") + Target
End If
End If
End Sub
Selamlar,
Aşağıdaki linki inceleyerek makroları etkinleştirme probleminizi çözebilirsiniz. Ayrıca her tablo derken aynı formatta tablolardan bahsediyorsanız kodu ThisWorkbook bölümüne yazarak çözüm üretebiliriz.
http://office.microsoft.com/tr-tr/excel/HA100310711055.aspx