(14/03/2021, 16:54)feraz yazdı:

(14/03/2021, 12:25)Oğuz Türkyılmaz yazdı: Else
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Firma

Önce burayı silip deneyin.üstündeki mesajdada aynı firma varsa diyor ve evet hayır diye şart koşmuşsunuz.Aynı firma varsa ve aynısı eklenmeyecekse orasıda değişmeli.

Ayni firma varsa ve eklenmeyecekse zaten hayır ile exit sub ile kaydetmeden çıkartıyorum. Else bölümünü silince istediğim şekilde kayıt yaptı Feraz Hocam Teşekkür ederim.