İstenen Koşul Sağlandığında Tarih Yazılması

[OuroBoRuS]

Merhabalar;

Excelde ulaşmak istediğim sonuç için hem forumda hem diğer platformlarda gezdim araştırdım ama formülle yapılabilecek bir işlem bulamadım. Sanırım formülle çözümü yok. Kısaca derdimi anlatmam gerekirse;

Örneğin ;
A1 hücresindeki değer %100'e ulaşınca B1 hücresinde %100'e ulaştığı tarihi yazsın ve o tarih bir daha değişmesin istiyorum. Sanırım VBA ile çok basit ancak ben bir türlü çözümünü bulamadım. Yardımcı olabilir misiniz?

 

[OuroBoRuS]

Merhabalar;

Excelde ulaşmak istediğim sonuç için hem forumda hem diğer platformlarda gezdim araştırdım ama formülle yapılabilecek bir işlem bulamadım. Sanırım formülle çözümü yok. Kısaca derdimi anlatmam gerekirse;

Örneğin ;
A1 hücresindeki değer %100'e ulaşınca B1 hücresinde %100'e ulaştığı tarihi yazsın ve o tarih bir daha değişmesin istiyorum. Sanırım VBA ile çok basit ancak ben bir türlü çözümünü bulamadım. Yardımcı olabilir misiniz?

Merhaba Tekrardan. Benden Hemen önce başlık açan arkadaş benimkine benzer bir sorun yaşamış. Birazcık değişiklik yapınca oldu.

Referans Forum Konusu : https://www.excel.web.tr/threads/huecreye-girilen-kelimeye-goere-zaman-yazdirma.177402/

Çözümlediğim VBA Kodu:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [I7:I400]) Is Nothing Then Exit Sub
    If Target.Value = "1" Then
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy")
Else
Target.Offset(0, -1) = ""
End If
End Sub

Yer işgal ettim kusura bakmayın

 

[OuroBoRuS]

Tekrardan Merhabalar
Konuyu yukarı taşımak gibi olmasın ama kodla alakalı bir sorunum daha var.

Makroyu yazdıktan sonra ve istenen koşul sağladıktan sonra istediğim hücreye tarih yazması için sağlanan koşula çift tıklayıp hiç bir değişiklik yapmadan enter a bastıktan sonra tarih yazıyor. Bunun koşul sağlandığında otomatik olarak işleme gerek duymadan nasıl yapabilirim?

 

[çıtır]

A1 hücresinin değeri %100 e nasıl ulaşıyor.Açıklar mısınız?

 

[OuroBoRuS]

Aynı dosya içerisindeki farklı sayfalardan değerlerin sayısına göre yüzdelik veriyor. bütün hücreler dolduğunda I hücresinin değeri %100 oluyor.

 

[çıtır]

Anladım kadar A1 Hücresinde formül var.Ancak siz hiçbir işlem yapmadan sonuça ulaşmaz.Sınırlı bilgi verdiğiniz için tam çözüm belirtemem.Önerim.
Renkli alana işlem yaptığınızda formülü etkiliyen hücreleri yazmanız.
If Intersect(Target, [D1:AA1]) Is Nothing Then Exit Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [D1:AA1]) Is Nothing Then Exit Sub
    If Range("A1").value = 100 Then
Range("B1")= Format(Now, "dd.mm.yyyy")
Else
Range("B1") = ""
End If
End Sub

 

[OuroBoRuS]

Anladım kadar A1 Hücresinde formül var.Ancak siz hiçbir işlem yapmadan sonuça ulaşmaz.Sınırlı bilgi verdiğiniz için tam çözüm belirtemem.Önerim.
Renkli alana işlem yaptığınızda formülü etkiliyen hücreleri yazmanız.
If Intersect(Target, [D1:AA1]) Is Nothing Then Exit Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [D1:AA1]) Is Nothing Then Exit Sub
    If Range("A1").value = 100 Then
Range("B1")= Format(Now, "dd.mm.yyyy")
Else
Range("B1") = ""
End If
End Sub

Merhaba
A1 hücresinde herhangi bir başvurum yada formülüm yok. Durumu size hızlıca anlatayım.

Excelde 3 sayfam var. 1. sayfada 158 adet daire var ve ölçülerinin alınması gerekmektedir. Ölçüler alındıkça (örneğin 158 daire) ilgili dairelere ölçüler giriliyor. Bütün ölçüleri tamamlandığında 3. sayfadaki gantt şemasına ölçü alınması hücresi %100 olacak. %100 olduğunda otomatik olarak tarihi yanındaki hücreye yazsın istiyorum ki ne zaman bittiğini takip edebileyim. Eğer %100 olmazsa o hücre boş kalsın istiyorum.

Bu kod diziliminde %100 olduğunda tarih yazmıyor. hücreye girip çıktığımda tarihi yazıyor. ben hücreye girip çıkmadan otomatik yazsın istiyorum.

Umarım anlatabilmişimdir.