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
-
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.
-
Set S1 = Nothing: Set s3 = Nothing ' ifadesini tamamen silip aşağıdaki kodu yapıştırarak denermisiniz.
Sheets("RAPOR").Select
Range("H23").Select
-
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.