Satır Silince Formül Hata veriyor..

[tirEdsOuL]

Ek'teki dosyada detaylı açıklama mevcuttur.

Teşekkürler..

 

[tirEdsOuL]

Dosyadaki ikinci sorumu bir Güncelle butonu ile hallettim sayılır, ama satır silindiğindeki hata olduğu müddetçe bir işe yaramayacaktır. İlgilenecek arkadaşlara teşekkürler..

 

[Ömer]

Ek'teki dosyada detaylı açıklama mevcuttur.

Teşekkürler..

Merhaba,

Bu şekilde deneyin.

Sub DoluOlaniAktar()
 
    Dim i As Long, sat As Long
 
    Application.ScreenUpdating = False
    Sheets("Bandrol").Select
 
    sat = 2
    With Sheets("Ana Sayfa")
        Range("A2:C" & Rows.Count).ClearContents
        For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            If .Cells(i, "C") <> "" Then
                Cells(sat, "A") = sat - 1
                Cells(sat, "B") = .Cells(i, "B")
                Cells(sat, "C") = .Cells(i, "C")
                sat = sat + 1
            End If
        Next i
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[tirEdsOuL]

ilginiz için teşekkürler..

verdiğiniz kodu önce bandrol sayfasına ekledim, anasayfadan satır sildiğimde yine aynı hatayı verdi.. sonra anasayfanın kod bölümüne ekledim yine aynı hatayı verdi.. son olarak kodu yine anasayfada bırakarak bandrol sayfasındaki formülleri silip deneyeyim dedim yine olmadı..

farklı bir yol ile mi yapmam gerekiyor ya da ne yapmam gerekiyor?

Teşekkürler..

 

[Ömer]

Eklediğiniz dosyanın VBA ekranında Module1 adında bir sayfa var. O sayfaya girip kodları o bölüme yapıştırın. Sonra sayfayı kapatın.

Kodları çalıştırmak için ister butona atayın ister ALT F8 ile enter yapın.

 

[tirEdsOuL]

elleriniz dert görmesin hocam çok sağolun çalıştı..

ama şöyle bir sıkıntı gördüm, ben bandrol sayfasına gelen müşterilerin karşılarına denk gelen D, E,F,G sütunlarına da birkaç bilgi yazacağım plaka, tesil tarihi vs.. gibi.. ana sayfadan müşteriyi sildiğimde bandrol sayfasından karşılığına denk gelen sütunların da silinmesi gerekiyor.. bu mümkün müdür ?

 

[Ömer]

Sorunuzu tam olarak anlamadım. Güncelleme yaptıktan sonra kodu çalıştırdığınızda istediğiniz olmuyor mu?

 

[tirEdsOuL]

Anasayfada Engin yazan satırını komple silip, bandrol sayfasında güncelleye tıklayın ne demek istediğimi anlayacaksınız.. Bandrol sayfasındaki Engin müşterisinin karşısındaki bilgileri duruyor sadece müşteri ismi ile ödemesi kayboluyor.. alttaki müşteri kim ise bilgiler onunkine kayıyor..

Dosya Ek'tedir.

 

[Ömer]

Bandrol sayafasında D:G sütunları arasını siz manuel mi giriyorsunuz.

 

[tirEdsOuL]

Evet, müşteri bandrol sayfasına düşdükten sonra mauel olarak ben giriyorum.. çünkü plakası ve tescili hemen belli olmuyor araçların onları sonradan girmek durumundayız..

 

[Ömer]

Peki kod çalışınca bu bölüm tamamen silinse bilgileri tekrar manuel mi gireceksiniz. Eğer o şekilde olmuyacaksa ikinci bir kod yazmak gerekecek.

 

[tirEdsOuL]

hocam dosyanın olması gerektiği halini ektedir.. ana sayfada bütün bilgiler direk yazılıyor müşterinin.. yani ne kadar ödemesi varsa alacağını borcunu giriyorum.. sonra onların ödemelerine göre ayrı sayfalarına ekleyip yanlarına da kendi bilgilerini ekliyorum.. en son işlemi biten müşteriyi ana sayfadan kaldırıyorum.. ve otomatik olarak diğer sayfalardan da bilgleri ile beraber kalkması gerekiyor..

 

[Ömer]

Sanırım siz bu işlemi her sayfa için yapacaksınız.

Eğer öyle olacaksa her sayfa için ayrı buton yapmak yerine, ana sayfadan kodu çalıştırarak tek seferde tüm sayfalara aktarma yapılabilir. Yalnız ilave yazdıklarınızıda ana sayfaya yazma imkanınız yokmu. Bu şekilde daha kullanışlı olur diye düşünüyorum.

 

[tirEdsOuL]

ilave yazdıklarımı ana sayfaya yazamam çünkü her ödemenin farklı bilgileri var, her ödeme için yanına 3-4 tane daha sütun açarsam sayfa başaçıkılmaz bir hal alır, bana sadece müşteri ismi ve ödemelerini sayfalarına atsın ve sayfalarında yazdığım bilgleri de silerken beraberin de silsin yeterli.. her sayfaya buton koymaya razıyım.. tabi siz ana sayfadan direk hepsini aktarırsanız da güzel olur

 

[tirEdsOuL]

Korhan hocamızın verdiği bi kodu deneyeyim dedim ama olmadı ayrıca kodda şöyle de bir sıkıntı var, her güncelleye bastığımda D,E,F hücrelerindeki veriler kayboluyor, ama G hücresindekiler yerinde duruyor..

 

[Korhan Ayhan]

Merhaba,

Siz benim önerdiğim koduda modüle aktarmışsınız. Benim önerdiğim kod sayfaya ait bir koddur. Hangi sayfada çalışmasını istiyorsanız o sayfanın adı üzerinde sağ klik yapın ve kod görüntüle seçeneğini seçin. Açılan pencereye kodu uygulayın. Daha sonra sayfaya dönün ve değişiklik yapıp sonucu gözlemleyin.

 

[tirEdsOuL]

dediğiniz gibi bandrol sayfasının kod bölümüne aşağıdaki kodu yazdım ama sonuç aynı ve bi önceki yorumumda belirttiğim güncelle sıkıntısı da devam ediyor.. bu kodsuz bile güncelleye tıkladığımda D,E,F sütunları kayboluyor sadece G sütunu duruyor..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2:B65536")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    On Error GoTo Son
    Application.EnableEvents = False

    If Target = "" Then
        Cells(Target.Row, "A").ClearContents
        Cells(Target.Row, "C").ClearContents
        Cells(Target.Row, "D").ClearContents
        Cells(Target.Row, "E").ClearContents
        Cells(Target.Row, "F").ClearContents
        Cells(Target.Row, "G").ClearContents
    End If
 
Son: Application.EnableEvents = True
End Sub

 

[tirEdsOuL]

sonuca ulaşamayacağız sanırım değil mi ?

 

[tirEdsOuL]

hocalarım sıkıntımın nereden kaynaklandığını buldum sanırım.. aşağıdaki Modül kodda kırmızı ile belirlediğim yerdeki "A3:F" her güncellemede o hücreleri siliyor, "önceki yorumlarımdaki D,E,F siliniyor G hücresi kalıyor" sıkıntısı da buradan kaynaklanıyormuş, "A3:G" yapınca G hücresi de silindi.. bu kod ile her güncelleme yaptığımda D:G hücre aralığı siliniyor ama ben Ana Sayfadan o müşteriyi kaldırmadığım müddetçe silinmemeleri gerekiyor.. ne zaman Ana Sayfadan bi müşterinin satırı silinirse, o zaman ilgili sayfadan güncelle dediğim de o müşteri ve bilgilerinin silinmesi gerekiyor..

Sub Bandrol()
 
    Dim i As Long, sat As Long
    
    Application.ScreenUpdating = False
    Sheets("Bandrol").Select
    
    sat = 3
    With Sheets("Ana Sayfa")
        [COLOR="Red"]Range("A3:F" & Rows.Count).ClearContents[/COLOR]
        For i = 3 To .Cells(Rows.Count, "A").End(xlUp).Row
            If .Cells(i, "F") <> "" Then
                Cells(sat, "A") = sat - 2
                Cells(sat, "B") = .Cells(i, "B")
                Cells(sat, "C") = .Cells(i, "F")
                sat = sat + 1
            End If
        Next i
    End With
    
     Application.ScreenUpdating = True
        
End Sub

 

[Ömer]

Konunun uçu bence çok açık. Bana kalırsa olayı baştan tasarlayıp konuyu aktarmanızda fayda var.

Benim anladığım;

* Sayfalardaki müşteri isimlerini ana sayfada arasın, bulamazsa sayfadan silsin.
* Bulursa ilgili sayfa sütununun müşteriye karşılık gelen satır hücresi boşsa yine silsin, boş değilse silmeden o müşteriye ait yeni bakiyeyi sayfadakiyle değişsin.
* Son olarak ana sayfada bakiyesi olupta ilgili sayfada kaydı olmayan müşteri ilgili sayfaya aktarılsın.

İstedikleriniz bunlar.

İlave var mı, değişecek olan var mı?, iptal olan var mı? vs...

Kısaca sorunuzu yeniden gözden geçirmenizi tavsiye ederim. Bu şekilde yaz boz dan ileri gidemeyiz. Bunun içinde siz dahil kimsenin boş zamanı olduğunu sanmıyorum.