Şimdi Fonksiyonunu sabitleme

[turkishboy975]

Çalışmayan(hata verip excel'i kapatan) kod satırı:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B3:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [E3:E65536]) Is Nothing Then Cells(Target.Row, "D") = Format(Now, "d mmm yyyy dddd h:mm")
If Not Intersect(Target, [G3:E65536]) Is Nothing Then Cells(Target.Row, "H") = Format(Now, "d mmm yyyy dddd h:mm")
End Sub

Orhan1070 arkadaşım
3. satırda [G3:E65536] yazmışsın doğrusu [G3:G65536] olacak

 

[50ersin]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

ben bu kod ile tarih saat yazdırabiliyorum lakin a sutununa formül ile değer getirdiğimde tarihi yazdıramıyorum lütfen yardım eder misiz

 

[YUSUF44]

A sütunundaki formülün veri aldığı kısımda elle değişiklik yapıyorsanız kodu o hücreye/hücrelere göre değiştirebilirsiniz.

 

[50ersin]

A sütunundaki formülün veri aldığı kısımda elle değişiklik yapıyorsanız kodu o hücreye/hücrelere göre değiştirebilirsiniz.

iki farklı sayfadan veri çekiyor iş sayfası ve halk sayfası orada L sutuna işle dediğim zaman sayfa1 de düşeyara ile koşula uyan bir cari ismi geliyor o zaman işte tarih saat ve salise eklemem lazım

 

[YUSUF44]

işle dediğim zaman

Bu işle dediğiniz zaman işlemeyi sağlayan eylem ne ise ona göre yapabilirsiniz.

 

[50ersin]

Örnek Dosyayı ekledim bilginize.

 

[dost]

Merhaba,

N2 hücresine;

=IF(O2<>"";NOW();"")

 

[Korhan Ayhan]

Bu kodu "İş" sayfanızın kod bölümüne uygulayın.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("L2:L" & Rows.Count)) Is Nothing Then
        Cells(Target.Row, "N") = Format(Now, "dd.mm.yyyy hh:mm:ss")
    End If
End Sub

Siz "L" sütununa elle "işle" yazdığınızda "N" sütununa zamanı yazacaktır.

Sonrasında "Sayfa1" sayfasına formülle bu zamanı da aldırabilirsiniz.

 

[50ersin]

Bu kodu "İş" sayfanızın kod bölümüne uygulayın.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("L2:L" & Rows.Count)) Is Nothing Then
        Cells(Target.Row, "N") = Format(Now, "dd.mm.yyyy hh:mm:ss")
    End If
End Sub

Siz "L" sütununa elle "işle" yazdığınızda "N" sütununa zamanı yazacaktır.

Sonrasında "Sayfa1" sayfasına formülle bu zamanı da aldırabilirsiniz.

bu kod iş sayfasında çalışıyor lakin sayfa1 asıl yerde çalışmıyor sayfa1 n sutunu 100. satıra kadar iş sayfasından 101 den 200 e kadar ise halk sayfasından veri alıyor

 

[Korhan Ayhan]

Aslında sizin asıl yer dediğiniz "İş" sayfasıdır. Siz "Sayfa1" isimli sayfada görüntüleme yapıyorsunuz.

Sayfa1 M sütunundaki ORS NO'ya göre DÜŞEYARA kullanıp "İş" sayfasındaki N sütunundaki tarihi alabilirsiniz.

 

[50ersin]

Aslında sizin asıl yer dediğiniz "İş" sayfasıdır. Siz "Sayfa1" isimli sayfada görüntüleme yapıyorsunuz.

Sayfa1 M sütunundaki ORS NO'ya göre DÜŞEYARA kullanıp "İş" sayfasındaki N sütunundaki tarihi alabilirsiniz.

Korhan Bey Sayfa 1 N sutununda tarihler her koşulda gözükmüyor eğer Sayfa1 O sutununda Cari ismi çıkar ise tarih çalışıyor Sayfa1 A sutundan Sayfa1 M sutununa kadar veriler geliyor lakin Düşeyara şartı oluşur ise Sayfa1 O sutununda veri oluşuyor işte o zaman tarih saat dakika çalışacak teşekkür ederim.

 

[Korhan Ayhan]

Bu durumda formülünüzün başına bir eğer sorgusu eklemeniz gerekiyor.

Aşağıdaki gibi olabilir.

=EĞER(O2<>"";DÜŞEYARA(M2;İş!M:N;2;0);"")

 

[50ersin]

Bu durumda formülünüzün başına bir eğer sorgusu eklemeniz gerekiyor.

Aşağıdaki gibi olabilir.

=EĞER(O2<>"";DÜŞEYARA(M2;İş!M:N;2;0);"")

Korhan bey teşekkür ederim şimdi çok güzel oldu elinize ve emeğinize sağlık.

 

[50ersin]

Korhan bey ;
bir sorum daha olacaktı iş sayfası L sutununu işle dedik zirve programına işledikten sonra İş sayfası L sutununu Tamam diyorum böylelikle o günkü kredi kartlarını carilere işlemiş oluyorum ama İş Sayfası N sutununda tarih saat ve dakika değişiyor buna nasıl bir çözüm bulabiliriz. Teşekkür ederim.

 

[Korhan Ayhan]

Bu kodu kullanabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("L2:L" & Rows.Count)) Is Nothing Then
        Select Case UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
            Case "İŞLE": Cells(Target.Row, "N") = Format(Now, "dd.mm.yyyy hh:mm:ss")
        End Select
    End If
End Sub

 

[50ersin]

Bu kodu kullanabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("L2:L" & Rows.Count)) Is Nothing Then
        Select Case UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
            Case "İŞLE": Cells(Target.Row, "N") = Format(Now, "dd.mm.yyyy hh:mm:ss")
        End Select
    End If
End Sub

Korhan Bey ;
Yazmış olduğunuz kod çok işime yaradı ilginizden dolayı çok teşekkür ederim. Allah razı olsun