AccessTr.neT

Bul · 02/09/2021, 22:52

Ekteki dosyayı indirip dener misiniz?

Bul · 02/09/2021, 23:09

Hızlıca birkaç deneme yaptım. Tamam görünüyor. Nerede değişiklik yaptığınızı öğrenebilir miyim? İşyerindeki dosyayı da güncellemem gerekecek.

Bul · 02/09/2021, 23:13

Önce

        Excl.Cells(y, "A") = rs2(0)
        Excl.Cells(y, "B") = rs2(2)
        Excl.Cells(y, "D") = rs2(3)
        Excl.Cells(y, "F") = rs2(4)
        Excl.Cells(y, "H") = rs2(5)

Sonra

Excl.Cells(y, "A") = IIf(rs2(0) = "  ()", "", rs2(0))
Excl.Cells(y, "B") = IIf(rs2(2) = "  ()", "", rs2(2))
Excl.Cells(y, "D") = IIf(rs2(3) = "  ()", "", rs2(3))
Excl.Cells(y, "F") = IIf(rs2(4) = "  ()", "", rs2(4))
Excl.Cells(y, "H") = IIf(rs2(5) = "  ()", "", rs2(5))

Bul · 02/09/2021, 23:38

Çok teşekkür ederim.

Bul · 09/09/2021, 00:14

Kolay gelsin.

AccessTr.neT

Mevcut Uygulaması Ve Excele Aktarımı

Mevcut Uygulaması Ve Excele Aktarımı

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri