DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
.
Nasıl yani?
.
.
D8 hücresindeki formülde:
=IF(AND(C8=ANA!$N$3;ANA!$N$5=$D$7);ANA!$I$7;D8)
D8 hücresinin ne işi var?
Diğer formüller de aynı.
.
.
Demek istediğim, aynı hücreye aynı anda iki değeri nasıl gireceksiniz? Formülü boş verin. D8 hücresine =D8 yazın bakalım ne oluyor?
.
.
Olayı anlatın. Kimse sizin kafanızda ne olduğunu bilemez. Siz ne yapmaya çalıştığınızı anlatın.
Bırakın silmeyi toplamayı. Onu biz yapalım.
.
Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
gün = s1.[H3]
saat = s1.[H5]
satır = Day(gün) + 4
If saat = 7 / 24 Then
s2.Cells(satır, "B") = s1.[B8]
s2.Cells(satır, "F") = s1.[C8]
s2.Cells(satır, "J") = s1.[D8]
ElseIf saat = 15 / 24 Then
s2.Cells(satır, "C") = s1.[B8]
s2.Cells(satır, "G") = s1.[C8]
s2.Cells(satır, "K") = s1.[D8]
ElseIf saat = 23 / 24 Then
s2.Cells(satır, "D") = s1.[B8]
s2.Cells(satır, "H") = s1.[C8]
s2.Cells(satır, "L") = s1.[D8]
Else
MsgBox "Saat hücresi 07:00, 15:00 ya da 23:00 olabilir!", vbCritical
End If
If saat = 7 / 24 Or saat = 15 / 24 Or saat = 23 / 24 Then
s2.Cells(satır, "E") = s2.Cells(satır, "B") + s2.Cells(satır, "C") + s2.Cells(satır, "D")
s2.Cells(satır, "I") = s2.Cells(satır, "F") + s2.Cells(satır, "G") + s2.Cells(satır, "H")
s2.Cells(satır, "M") = s2.Cells(satır, "J") + s2.Cells(satır, "K") + s2.Cells(satır, "L")
End If
End Sub