Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: 1Al2Ver - 29 Eylül 2016, 13:22:11

Başlık: Kod'a İlave
Gönderen: 1Al2Ver - 29 Eylül 2016, 13:22:11

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.                     

Başlık: Ynt: Kod'a İlave
Gönderen: efeksk - 29 Eylül 2016, 13:34:05

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

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

Başlık: Ynt: Kod'a İlave
Gönderen: 1Al2Ver - 30 Eylül 2016, 21:29:33

Alıntı yapılan: efeksk - 29 Eylül 2016, 13:34:05

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.