hocam merhaba. öncelikle eğitimleriniz için çok teşekkür ederim. bir sorum olacak. örneğin A1 hücresinde değişiklik yaptığımda A2 hücresine bu değişiklik yaptığım tarih ve saati otomatik olarak nasıl getirebilirim? cevap verirseniz çok mutlu olurum.
Diğer yollar ile uğraşmayın hiç. VBA ile çözün. Benim yaptığım mantık biraz farklı olsa da sizin işinizi görecektir. A sütununda herhangi bir hücrede yapılan değişikliğin tarihini B sütunundaki hücreye otomatik yazdıran koddur: Private Sub Worksheet_Change(ByVal Target As Range) Dim degisenHucre As Range Dim logSayfasi As Worksheet If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then For Each degisenHucre In Intersect(Target, Me.Range("A:A")) Set logSayfasi = ThisWorkbook.Sheets("Sayfa1") logSayfasi.Cells(degisenHucre.Row, "B").Value = Now() Next degisenHucre End If End Sub
=AL(FİLTRE(Gelen!D:D;(Gelen!D:D"")*(Gelen!D:D"")*(Gelen!D:D>0));-1) Bu formülü kendime göre düzenlendiğim zaman belli bir satır sonrası (484. de) boş gelmeye başlıyor. Videodaki formüllerde aynı. Bu konuda yardımcı olabilir misiniz
Emeğinize sağlık ben de olsam birinci örnekteki Ara fonksiyonunu kullanırdım
Paylaşımınız için teşekkürler. alternatif olarak =AL(FİLTRE(B4:D190;(B4:B190"")*(C4:C190"")*(D4:D190>0));-1) formül de kullanılabilir sanırım.
Evet, kesinlikle. Bu da güzel bir alternatif. Teşekkürler.
Hocam selam. Ben bu formulu E-Tablolarda denedigimde bana ilk degeri verdi. Nerde hata yapiyor olabilirim
hocam merhaba. öncelikle eğitimleriniz için çok teşekkür ederim. bir sorum olacak. örneğin A1 hücresinde değişiklik yaptığımda A2 hücresine bu değişiklik yaptığım tarih ve saati otomatik olarak nasıl getirebilirim? cevap verirseniz çok mutlu olurum.
Diğer yollar ile uğraşmayın hiç. VBA ile çözün. Benim yaptığım mantık biraz farklı olsa da sizin işinizi görecektir. A sütununda herhangi bir hücrede yapılan değişikliğin tarihini B sütunundaki hücreye otomatik yazdıran koddur: Private Sub Worksheet_Change(ByVal Target As Range)
Dim degisenHucre As Range
Dim logSayfasi As Worksheet
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
For Each degisenHucre In Intersect(Target, Me.Range("A:A"))
Set logSayfasi = ThisWorkbook.Sheets("Sayfa1")
logSayfasi.Cells(degisenHucre.Row, "B").Value = Now()
Next degisenHucre
End If
End Sub
@@ileriexcel çok teşekkürler hocam 🙏 uzun zamandır bulamamıştım. Sağolun 🙂
=AL(FİLTRE(Gelen!D:D;(Gelen!D:D"")*(Gelen!D:D"")*(Gelen!D:D>0));-1) Bu formülü kendime göre düzenlendiğim zaman belli bir satır sonrası (484. de) boş gelmeye başlıyor. Videodaki formüllerde aynı. Bu konuda yardımcı olabilir misiniz
=SATIRSEÇ(B4:D190;ÇAPRAZEŞLEŞTİR(DOĞRU();D4:D190"";0;-1))
=ÇAPRAZARA(DOĞRU();D4:D190"";B4:D190;"";0;-1)