- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,727
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
Merhaba,
"Maliyet" isimli sayfada kayıtlı aşağıdaki kod çalıştırılınca, aynı anda ve her defasında en son çalıştırıldığı tarih ve saati O1 hücresine yazabilir mi ?
Teşekkür ederim.
Private Sub CommandButton1_Click()
For X = 6 To [A2000].End(3).Row
If Cells(X, 1) > "" Then
Cells(X, 5) = Cells(X, 4) * Range("e2").Value / 100
Cells(X, 6) = Cells(X, 4) * Range("f2").Value / 100
Cells(X, 7) = Cells(X, 4) * Range("g2").Value / 100
Cells(X, 8) = Cells(X, 4) + Cells(X, 5) + Cells(X, 6) + Cells(X, 7)
Cells(X, 9) = Cells(X, 8) * Range("ı2").Value / 100
Cells(X, 10) = Cells(X, 8) + Cells(X, 9)
Cells(X, 11) = Cells(X, 10) * Range("K2").Value / 100
Cells(X, 12) = Cells(X, 10) + Cells(X, 11)
End If
Next
End Sub
"Maliyet" isimli sayfada kayıtlı aşağıdaki kod çalıştırılınca, aynı anda ve her defasında en son çalıştırıldığı tarih ve saati O1 hücresine yazabilir mi ?
Teşekkür ederim.
Private Sub CommandButton1_Click()
For X = 6 To [A2000].End(3).Row
If Cells(X, 1) > "" Then
Cells(X, 5) = Cells(X, 4) * Range("e2").Value / 100
Cells(X, 6) = Cells(X, 4) * Range("f2").Value / 100
Cells(X, 7) = Cells(X, 4) * Range("g2").Value / 100
Cells(X, 8) = Cells(X, 4) + Cells(X, 5) + Cells(X, 6) + Cells(X, 7)
Cells(X, 9) = Cells(X, 8) * Range("ı2").Value / 100
Cells(X, 10) = Cells(X, 8) + Cells(X, 9)
Cells(X, 11) = Cells(X, 10) * Range("K2").Value / 100
Cells(X, 12) = Cells(X, 10) + Cells(X, 11)
End If
Next
End Sub
