TABLO İSİM DEĞİŞİKLİĞİ

[tekseker_li]

MERHABALAR,
Forum da incelerken bulduğum bir dosyanın makro ayarları bozulmadan sayfa isim değişikliği yapmaya çalıştım. ama başarılı olamadım. bu konuda bana yardımcı olabilir misiniz. dosyanın içinde yer alan "firmalar" isminin öğrenci ismi olarak değiştirilmesi istiyorum.

 

[ÖmerFaruk]

firmalar bir kaç yerde kullanılıyor.
1. Tanımlı Adlarda
2. Çalışma sayfasında
3. Rapor sayfasında B2 hücresinde
4. VBA kodları içinde

Siz bunların ilk 3 ünü çok basitçe, dördüncüsünü de dikkatlice değiştirebilirsiniz.

 

[Mdemir63]

Selamlar

istediğiniz bu ise inceleyiniz.

 

[tekseker_li]

4. maddeyi yapamıyorum. HATA VERİYOR. ATLADIĞIM YER NERESİ BULAMADIM...

 

[ÖmerFaruk]

Module1 içindeki kodların başlığını aşağıdaki gibi değiştirin
Sub OgrenciBul()

Giriş sayfasındaki kodlarda koyu satırı aşağıdaki gibi değiştirin
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Intersect(Target, Range("B2:B" & Cells(Rows.Count, 2).End(3).Row)) Is Nothing Then Exit Sub
Sheets("öğrenci").Select
Sheets("öğrenci").Range("AA2").Value = Target.Value
Sheets("öğrenci").[A1].Select
Module1.OgrenciBul
Application.ScreenUpdating = True
End Sub