şarta bağlı kapalı excele veri kopyalama

[Cihannalbant]

çok verisi bulunan bir çizelgem mevcut

A sutununda durumunu yazıyorum yazdığım duruma göre koşullu biçimlendirme yapıyor.
Ancak A sutununa tamamlandı yazdığım ve maviye boyanan sutunları başka bir excel içerisinde ayrıca tamamlananlar olarak olmasını istiyorum.

Genel xls dosyası içinde yaptığım değişikliklerin tamamlananlar.xls içine otomatik kaydetmesini ve sildiğimde ise kaldırmasını istiyorum.

Excel de makro ile mümkün olabilir mi ? Makra bilgim buna yetmedi yardımcı olur iseniz seninirim.

 

[Cihannalbant]

A sutununa tamamlandı yazıldığında SATIRIN tümünün TAMAMLANANLAR içerisine kopyalanması

 

[Cihannalbant]

üstadlar yardımcı olabilir misiniz ?

 

[Cihannalbant]

Güncel üstadlar

 

[Korhan Ayhan]

"Genel.xlsx" dosyanızda benzersiz veri içeren bir sütun var mı?

 

[Cihannalbant]

Tamamlandı yazıldığında o satırın başka sayfaya yazmasını alt altta yeni tamamlananlar listesi olmasını ıstıyorum Benzer değerler bulunabilir doldurulan genel listesinde

 

[Cihannalbant]

A stununa tamamlandı onarımda devam ediyor vb hücreler dolduruyorum ancak tamamlananları farklı bir sayfada görmem görekiyor üstadım. Bazı durumlarda tamamlandı ibaresi silinirse onu tamamlandı sayfasından cıkarmasını ıstıyorum

 

[Korhan Ayhan]

"Sildiğimde ise kaldırmasını istiyorum..." ifadenize istinaden benzersiz alan var mı diye sordum.

Tamamlandı yazanlar başka sayfaya ya da dosyaya aktarılabilir. Fakat daha sonra "Tamamlandı" ifadesini değiştirdiğinizde bunu excelin bilmesi için benzersiz bir alanın olması avantaj sağlayabilir.

Birde dosyaya aktarma durumu zorunlu mu? Aynı dosya içinde başka boş bir sayfaya aktarsak sizin için sorun olur mu?

 

[Cihannalbant]

Olabılır aynı excel içerisinde tamamlananlar diye başka sayfada işimi görür aslında. İlgilendiğiniz için tesskrler

 

[Korhan Ayhan]

"Sayfa1" isimli sayfanızın kod bölümüne uygulayınız.

Veriler her değişim yaptığınızda otomatik olarak Sayfa2'ye aktarılacaktır.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Baglanti As Object, Kayit_Seti As Object, Sorgu As String
   
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
   
    Set Baglanti = CreateObject("AdoDb.Connection")
    Set Kayit_Seti = CreateObject("AdoDb.Recordset")
   
    Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _
    ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=No"""
 
    Sorgu = "Select * From [Sayfa1$A:S] Where F1 = 'Tamamlandı'"

    Kayit_Seti.Open Sorgu, Baglanti, 1, 1

    With Sheets("Sayfa2")
        .Cells.Clear
        If Kayit_Seti.RecordCount > 0 Then
            Sheets("Sayfa1").Range("A1:S1").Copy .Range("A1")
            .Range("A2").CopyFromRecordset Kayit_Seti
            .Columns.AutoFit
        End If
    End With
   
    If Kayit_Seti.State <> 0 Then Kayit_Seti.Close
    If Baglanti.State <> 0 Then Baglanti.Close

    Set Kayit_Seti = Nothing
    Set Baglanti = Nothing
End Sub

 

[Cihannalbant]

Üstadım teşşekürler kod güzel çalışıyor bir problem kaldı onuda aşağıda açıklamalaya çalışayım ;

Sayfa 1 e girilmiş olan verileri "Tamamlandı" yazan satırları sayfa 2 ye kusursuz alıyor problem yok.

Ancak Sayfa 1 de daha önce tamamlandı olarak işaretlenenlerde bir veri düzenlediğimde veya sildiğimde sayfa 2 ye aktardığı veri üzerine değişiklik yapmıyor.

Yardımcı olabilirmisiniz ?

 

[Korhan Ayhan]

Ben denediğimde bir sorun göremedim. Düzgün çalışıyor gibi görünüyor.

 

[Cihannalbant]

Hocam, söyle anlatsam daha doğru olacak galiba Eklediğim belgede her satıra değerler verdim. Bu değerlerde sayfa 1 de değişiklik yaptığımda sayfa 2 ye daha önce tamamlandı diyerek aktardığımız veriler üzerinde değişiklik olmuyor.

Anca başka bir satırı tamamlandı yapar isek ozaman hepsini tekrar alıyor. Bunu değişiklik yaptığımızda sayfa 2 yi güncelleyecek şekilde düzenleyebilirmiyiz

 

[Korhan Ayhan]

Anladım demek istediğinizi..

Kod içindeki aşağıdaki satırda bold olan yere T yazıp deneyiniz.

If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub

 

[Cihannalbant]

Hocam sadece BOLD olan yeri T yaptım olmadı kusura bakmayın ama yardımınızı istiyeceğim. Alakanız için teşekkürler.

 

[Korhan Ayhan]

Olmayan yer neresi?

 

[Cihannalbant]

HOCAM tamamlandı satırına 19 sutununa 1 değerini verdim tamamlandı seçtim ve aktarımı yaptı. Daha sonra sayfa 1 de (1) değerinin birtanesini 0 yaptım değişiklik yaptım sayfa 2 ye geçtiğimde hala eski değer 1 gözüküyor. Eşzamanlı sayfa2 de 1 değeri otomatik 0 a dönemez mi

 

[Korhan Ayhan]

Kodu doğru yere uyguladığınızdan emin olunuz.

#10 nolu mesajımda nereye uygulamanız gerektiğini yazmıştım.

 

[Cihannalbant]

EXCEL DOSYASININ ICERISINE OK İLE İŞARETLEDİM HOCAM SAYFA 1 DE YAPTIĞIM DEĞİŞİKLĞİ VE SAYFA 2 YE GEÇMEYEN YERİ ... Dediklerinizide yaptım ama galıba ben anlatmayı beceremedım hocam

 

[Korhan Ayhan]

Siz T olarak yapmanız gereken düzeltmeyi yaptığınıza emin misiniz?