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