[ÇÖZÜLDÜ] Tarihe bağlı olarak kayıt güncelleme veya yeni kayıt...

[enteresan]

Başlık yazarken oldukça zorlandım. Umarım demek istediğim anlaşılmıştır. EK'te gönderdiğim dosyada a2:c2 hücrelerinde başka sayfadan formülle gelen değerler vardır. Çalışma kitabının kapanışına konulacak bir makro ile, a2:c2 hücrelerini kopyalayıp, E2 hücresine yapıştırmak istiyorum. Buraya kadar olananı yaptım. Yapamadığım ise, eğer A2 hücresindeki tarih daha önce kaydedilmiş ise, aynı tarihe ait değerler güncellensin, eğer daha önce kaydedilmemiş ise E3 hücresine yeni kayıt olarak girilsin istiyorum. İnşallah anlatabilmişimdir.

Saygılarımla....

Bir öncekini dosyayı eklemeden göndermişim. Yönetimden özür diliyorum. Lütfen bir önceki mesajımı siliniz...

 

[Orion1]

Sayın enteresan ayni konu hakkında 2 başlık açmayalım.
Lütfen forum kurallarına uyalım.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Auto_Close()
Dim sat As Long
Set s1 = Sheets("Sayfa1")
Set k = s1.Range("E2:E65536").Find(s1.Range("A2").Value, , xlValues, xlWhole)
If k Is Nothing Then
    sat = Cells(65536, "E").End(xlUp).Row + 1
    If sat >= 65536 Then
        MsgBox "satır doldu.Başka Güncelleme yapılmadı..", vbCritical, "DİKKAT"
        Exit Sub
    End If
    s1.Cells(sat, "E").Value = s1.Range("A2").Value
    s1.Cells(sat, "F").Value = s1.Range("B2").Value
    s1.Cells(sat, "G").Value = s1.Range("C2").Value
    Else
    s1.Cells(k.Row, "F").Value = s1.Range("B2").Value
    s1.Cells(k.Row, "G").Value = s1.Range("C2").Value
End If
ThisWorkbook.Close True
End Sub

 

[enteresan]

Sayın Orion2, elinize sağlık. Tam istediğim gibi. Size çok teşekkür ederim. Ayrıca, yukarıda da belirttiğim gibi, dosyayı eklemeden konuyu göndermişim, hemen arkasından dosyayı ekleyerek tekrar gönderince iki ayrı başlık gibi oldu. Yöneticilerden rica ettim, umarım kirliliğe neden olmadan silerler ilk mesajımı.
Tekrar teşekkür eder saygılar sunarım.

 

[Orion1]

Sayın Orion2, elinize sağlık. Tam istediğim gibi. Size çok teşekkür ederim. Ayrıca, yukarıda da belirttiğim gibi, dosyayı eklemeden konuyu göndermişim, hemen arkasından dosyayı ekleyerek tekrar gönderince iki ayrı başlık gibi oldu. Yöneticilerden rica ettim, umarım kirliliğe neden olmadan silerler ilk mesajımı.
Tekrar teşekkür eder saygılar sunarım.

Rica ederim.
İyi çalışmalar.