Koşullu biçimlendirme sorunu

[igultekin2000]

iyi akşamlar;
koşullu biçimlendirme yaptığımda, biçim sabit kalmıyor. bunu önlemenin bir yolu var mıdır. ?

 

[acar6783]

Muhtemelen kopyala-yapıştırdan sonra oluyor.
Kopyalama yaptğınızda sadece verileri yapıştırmayı deneyin.
Farklı bir çözümü var mı biliyorum ama ek olarak kod yazılabilir.Her işlemden sonra biçimlendirmeyi silip tekrar yapacak şekilde.

 

[igultekin2000]

Muhtemelen kopyala-yapıştırdan sonra oluyor.
Kopyalama yaptğınızda sadece verileri yapıştırmayı deneyin.
Farklı bir çözümü var mı biliyorum ama ek olarak kod yazılabilir.Her işlemden sonra biçimlendirmeyi silip tekrar yapacak şekilde.

Makro ile rapor alma işlemi yapılıyor, onda sonra biçimlendirme değişiyor.

 

[acar6783]

Kodları yazarmısınız?

 

[igultekin2000]

Kodları yazarmısınız?

=$A1>1 Uygulama Hedefi =$A$1:$F$100

 

[acar6783]

Makro ile rapor alma işlemi yapılıyor, onda sonra biçimlendirme değişiyor.

Kodları demiştim ama ?

 

[igultekin2000]

Kodları demiştim ama ?

Sub İŞLEM_BRN()
Set ul = Sheets("URUN_LISTE"): Set sb = Sheets("sabitler"): Set ha = Sheets("HAREKET")
ul.Range("A2:F" & ul.Cells(65536, 1).End(3).Row).ClearContents
Application.ScreenUpdating = False
sb.Range("B2:D" & sb.Cells(Rows.Count, "B").End(xlUp).Row).Copy ul.Range("A2")
For i = 2 To ul.Range("A65536").End(xlUp).Row
ha.Cells(1, 1) = ul.Cells(i, 1): ul.Cells(i, 4) = ha.Cells(1, "P"): ul.Cells(i, 5) = ha.Cells(1, "Q")
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub
Sub Carp()
On Error Resume Next
    Application.EnableEvents = False

    Dim Bak As Long
    For i = 2 To [A2000].End(3).Row
        With Worksheets("URUN_LISTE")
            .Cells(i, "F").Value = Cells(i, "D").Value * Cells(i, "E").Value
        End With
     Next
     Range("F:F").NumberFormat = "#,##0.00"
     Application.EnableEvents = False
End Sub

 

[acar6783]

ul.Range("A2:C" & sb.Cells(Rows.Count, "B").End(xlUp).Row).Value = sb.Range("B2:D" & sb.Cells(Rows.Count, "B").End(xlUp).Row).Value

Olarak denermisiniz?
Deneme başarısız olursa örnek dosya üzerinden gidelim.Muhtemelen buradaki kopyalamada diğer sayfadaki biçimlendirmeyi de alıyor.

 

[igultekin2000]

ul.Range("A2:C" & sb.Cells(Rows.Count, "B").End(xlUp).Row).Value = sb.Range("B2:D" & sb.Cells(Rows.Count, "B").End(xlUp).Row).Value

Olarak denermisiniz?
Deneme başarısız olursa örnek dosya üzerinden gidelim.Muhtemelen buradaki kopyalamada diğer sayfadaki biçimlendirmeyi de alıyor.

değişme olmadı

 

[acar6783]

dosyayı atabilirmisiniz

 

[igultekin2000]

dosyayı atabilirmisiniz

 

[acar6783]

Sub İŞLEM_BRN()
Set ul = Sheets("URUN_LISTE"): Set sb = Sheets("sabitler"): Set ha = Sheets("HAREKET")
ul.Range("A2:F" & ul.Cells(65536, 1).End(3).Row).ClearContents
Application.ScreenUpdating = False
ul.Range("A2:C" & sb.Cells(Rows.Count, "B").End(xlUp).Row).Value = sb.Range("B2:D" & sb.Cells(Rows.Count, "B").End(xlUp).Row).Value
For i = 2 To ul.Range("A65536").End(xlUp).Row
ha.Cells(1, 1) = ul.Cells(i, 1): ul.Cells(i, 4) = ha.Cells(1, "P"): ul.Cells(i, 5) = ha.Cells(1, "Q")
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Verdiğim düzeltme işe yaramış olması lazım.
Ben deneme yaptım koşullu biçimlendirme değişmedi?

 

[igultekin2000]

Teşekkür ederim, bu şekilde sorunsuz çalıştı. Elinize sağlık, iyi çalışmalar. Bu tür uygulamalarda satır sildiğimde de aynı sorunu yaşıyorum. Belli bir püf noktası varmıdır.

 

[acar6783]

ad tanimlamadan alan belirleyin öyle deneyin.

 

[igultekin2000]

ad tanimlamadan alan belirleyin öyle deneyin.

Teşekkürler, bu şekilde oldu

 

[acar6783]

Teşekkürler, bu şekilde oldu

Rica ederim Kolay gelsin