Mevcut Uygulaması Ve Excele Aktarımı

Ekteki dosyayı indirip dener misiniz?

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.

Ö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))

Çok teşekkür ederim.

Kolay gelsin.