(06/06/2020, 22:48)feraz yazdı: ilgili yeri alttaki ile değiştirin.Sadece B sütununa firma adları gelecek diye yapmıştım.

Kod:

With syfFirmalar
        .Select
        .Rows("1:1").Copy .Range("A" & Rows.Count).End(3)(2, 1)
        satir = .Range("A" & Rows.Count).End(3).Row
        .Rows(satir).Replace What:="Örnek", Replacement:=Firma, LookAt:=xlPart
        .Range("A" & Rows.Count).End(3)(2, 1).Select
End With

@feraz bey başınıza iş aldınız kusura bakmayın.Değişikliği yaptım yeni firma kaydettim Firma ünvanı yazan yerde firma ad firma adı yazan yerde Firma Ünvanı çıkıyor halen farketmez ben başlıklarını değiştiririm artık, Fakat yeni kaydedilen firmanın Eski kayıt edilen firmalarda çalışmasına rağmen Firmalar sekmesindeki aç köprüsü ile detay sayfasındaki aşağıdaki resimde görülen resimdeki git köprüsü çalışmıyor.