Kod'a İlave

[1Al2Ver]

Merhabalar,

Aşağıdaki koda 1 satır kod ilave edilmesini arzuluyorum,

MODÜL'de Kayıtlı                        
                        
Sub Aktar()                        
                        
Set S1 = Sheets("HAZIRLIK")                        
Set S4 = Sheets("RAPOR")                        
Application.ScreenUpdating = False                        
                        
S4.Range("A22:B41").Value = S1.Range("K11:L30").Value                         
S4.Range("E22:J41").Value = S1.Range("M11:R30").Value                         
S4.Range("K23:M41").Value = S1.Range("U12:W30").Value                         
                        
Application.ScreenUpdating = True                        
                        
S1.Range("L12:L30").ClearContents                         
                        
MsgBox "Aktarma Tamamlandı, RAPOR Sayfasına Gidiniz !!!", vbOKOnly + vbInformation, "BRAVO"                        
Set S1 = Nothing: Set s3 = Nothing ' sanırım buradaki s3 ifadesi de s4 olacak                        
End Sub                        
                        
İlave etmeye çalıştığım kod ; S4.Range("H23").Select                        
                        
İstenen ; Aktarma Tamamlanınca, "RAPOR" sayfası H23 hücresine git (bu durumda MsgBox'a gerek kalmıyor)   

Teşekkür ederim.                     

[efeksk]

Set S1 = Nothing: Set s3 = Nothing ' ifadesini tamamen silip aşağıdaki kodu yapıştırarak denermisiniz.

Sheets("RAPOR").Select
Range("H23").Select

[1Al2Ver]

Set S1 = Nothing: Set s3 = Nothing ' ifadesini tamamen silip aşağıdaki kodu yapıştırarak denermisiniz.

Sheets("RAPOR").Select
Range("H23").Select

Sayın efeksk merhaba, ancak müsait olabildim,

Denedim ve sonuç aldım, çok teşekkür ederim.