AccessTr.neT
Excel Useform Üzerinden Accesse Veri Kaydetme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Useform Üzerinden Accesse Veri Kaydetme (/konu-excel-useform-uzerinden-accesse-veri-kaydetme.html)

Sayfalar: 1 2 3 4 5

RE: Excel Useform Üzerinden Accesse Veri Kaydetme - mert_0671 - 22/08/2021

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


RE: Excel Useform Üzerinden Accesse Veri Kaydetme - berduş - 22/08/2021

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


RE: Excel Useform Üzerinden Accesse Veri Kaydetme - mert_0671 - 22/08/2021

(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

Teşekkürler Sayın berduş şimdi oldu

RE: Excel Useform Üzerinden Accesse Veri Kaydetme - berduş - 22/08/2021

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


RE: Excel Useform Üzerinden Accesse Veri Kaydetme - mert_0671 - 22/08/2021

(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

RE: Excel Useform Üzerinden Accesse Veri Kaydetme - mert_0671 - 24/08/2021

(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

Sayın berduş bu kod bloğunu orjinal dosyama uygulamaya çalıştığımda hata alıyorum