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
(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.
![[Resim: do.php?img=10300]](https://resim.accesstr.net/do.php?img=10300)
Sn@
ferazBu arada sizin VB kodu maşallah canavar gibi hemen çalışıp hiç bir yan etki göstermeden makro çalışıyor ekran anında boşalıyor işlem bitiyor. Fakat benim yazdığım orjinal dosyadaki Makro çalıştığında
Excel e bir titreme nöbeti geliyor ekranda yer yerinden oynuyor sonra işlem bitiyor. Nasıl 2 makroda bu kadar fark oluşabiliyor anlayamadım doğrusu.
Application.ScreenUpdating = False bu kod ekran titretmesini önler yani kapalı excelin açılıp kapanmasını göstermez.
(06/06/2020, 23:47)feraz yazdı: [ -> ]
Application.ScreenUpdating = False bu kod ekran titretmesini önler yani kapalı excelin açılıp kapanmasını göstermez.
Teşekkür ederim bilgi için. Ben Office 2010 u kaldırıp 2016 yükledim belki 2010 da ayarları bozdum diye ama maalesef Örnek adlı firmada çalışan köprüler Yeni kaydedilen Firmalarda çalışmıyor. Son halini atıyorum müsait olunca bakarmısınız lütfen.
(07/06/2020, 10:30)Oğuz Türkyılmaz yazdı: [ -> ] (06/06/2020, 23:47)feraz yazdı: [ -> ]
Application.ScreenUpdating = False bu kod ekran titretmesini önler yani kapalı excelin açılıp kapanmasını göstermez.
Teşekkür ederim bilgi için. Ben Office 2010 u kaldırıp 2016 yükledim belki 2010 da ayarları bozdum diye ama maalesef Örnek adlı firmada çalışan köprüler Yeni kaydedilen Firmalarda çalışmıyor. Son halini atıyorum müsait olunca bakarmısınız lütfen.
Rica ederim.Ben 2016 kullanıyorum ve sizin ilk eklediğiniz dahil hiç birinde köğrü çalışmıyordu sadece örnek olan satırdaki çalışıyordu.Müsait olunca bakarım.Ve mesela veriler silinince formüllerde bozulup hata oluyordu.Yani dosya pamuk ipliğine bağlı gibi