muhsar
Altın Üye
- Katılım
- 16 Mart 2019
- Mesajlar
- 262
- Excel Vers. ve Dili
- 2010 tütkçe
- Altın Üyelik Bitiş Tarihi
- 21-03-2029
merhaba;ekte sunduğum çalışma kitabımın hbys isimli sayfasında istatistik verisi almaktayım.diğer çalışma kitaplarında ay ismine göre açılmış sayfalardan veri saydırarak istatistik çıkartıyorum.makro kaydet ile yapmış olduğum sayfa değişim isimli makro ile ay değiştiği zaman diğer ay için veri çekeceği sayfa ismini makroda değiştiriyorum.yapmak istediğim makroda ay isminin geçtiği yeri hbys isimli sayfanın v2--w2 hücrelerinden aldırmak,
örneğin;
Selection.Replace What:="eylül_2019", Replacement:="ekim_2019", LookAt:= satırdaki eylül_2019 u hbys sayfasındaki v2 hücresinden alması ekim_2019 u da w2 den alması
ilginiz için şimdiden teşekkür ediyorum:
giriş kullanıcı adı: muharrm şifre:1111
örneğin;
Selection.Replace What:="eylül_2019", Replacement:="ekim_2019", LookAt:= satırdaki eylül_2019 u hbys sayfasındaki v2 hücresinden alması ekim_2019 u da w2 den alması
ilginiz için şimdiden teşekkür ediyorum:
giriş kullanıcı adı: muharrm şifre:1111
Kod:
Sub sayfadegisim()
'
' safya degisim Makro
'
'
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Range("T23:U26,N34:S37,V34:V37").Select
Range("V34").Activate
ActiveWindow.SmallScroll Down:=25
Range("T23:U26,N34:S37,V34:V37,S66:T67").Select
Range("S66").Activate
Selection.Replace What:="eylül_2019", Replacement:="ekim_2019", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 1
ActiveWindow.SmallScroll Down:=22
Range("T34,T34:U37").Select
ActiveWindow.SmallScroll Down:=27
Range("T34,T34:U37,N66:N67,P66:Q67").Select
Range("P66").Activate
Selection.Replace What:="agustos_2019", Replacement:="eylül_2019", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 27
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = Tru
End Sub
Ekli dosyalar
-
271.8 KB Görüntüleme: 2
Son düzenleme: