AccessTr.neT

(22/08/2021, 15:55)berduş yazdı: [ -> ]bende ilkinde çalışıyor kodlarınızda başka birşey mi var dosyanızı ekler misiniz

sonstr = Cells(Rows.Count, "C").End(xlUp).Row

Range("A2").CopyFromRecordset DataKayitlar

Range("A2").CopyFromRecordset DataKayitlari

sonstr = Cells(Rows.Count, "C").End(xlUp).Row

(22/08/2021, 16:40)berduş yazdı: [ -> ]hatayı buldum) maalesef son satırı bulma kodunu yanlış yere yazmışım

sonstr = Cells(Rows.Count, "C").End(xlUp).Row

Range("A2").CopyFromRecordset DataKayitlar

bu kısım hatalı önce veriyi kopyalayıp sonra satır no bulunmalı
aşağıdaki gibi düzenleyip dener misiniz?

Range("A2").CopyFromRecordset DataKayitlari

sonstr = Cells(Rows.Count, "C").End(xlUp).Row

For x = 2 To sonstr

    If InStr(1, Range("c" & x), "<font color=red>") > 0 Then Range("c" & x).Font.Color = vbRed

    Range("c" & x) = PlainText(Range("c" & x))

Next x

(22/08/2021, 22:46)berduş yazdı: [ -> ]aşağıdaki kodu kullanırsanız excele renkli alırsınız

For x = 2 To sonstr

    If InStr(1, Range("c" & x), "<font color=red>") > 0 Then Range("c" & x).Font.Color = vbRed

    Range("c" & x) = PlainText(Range("c" & x))

Next x

(22/08/2021, 22:57)mert_0671 yazdı: [ -> ]

(22/08/2021, 22:46)berduş yazdı: [ -> ]aşağıdaki kodu kullanırsanız excele renkli alırsınız

For x = 2 To sonstr

    If InStr(1, Range("c" & x), "<font color=red>") > 0 Then Range("c" & x).Font.Color = vbRed

    Range("c" & x) = PlainText(Range("c" & x))

Next x

Teşekkürler Sayın Berduş yine hızır gibi yetiştiniz sağolun