Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: Kod'a İlave  (Okunma sayısı 4029 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı 1Al2Ver

  • Excelce Destek Ekibi
  • ****
  • İleti: 190
  • Puan +3/-0
  • Cinsiyet: Bay
  • Almasını bilmek kadar, vermesini de bilmek gerek.
  • İşletim Sisteminiz: Windows 11 - 64 Bit
  • Mesleğiniz: Gıda Tespit ve Planlama Uzmanı
  • Office Versiyonunuz: Microsoft Office 365 ProPlus
Kod'a İlave
« : 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.                     
« Son Düzenleme: 12 Kasım 2016, 20:33:44 Gönderen: Bülent Öztürk »
Yaşamda iyi bir iz bırakın ki, sizden sonra da ailenizin başı dik dursun.

Çevrimdışı efeksk

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: halim karapınar
  • Doğum Yılınız: 1985
  • İl / İlçe: izmir/karşıyaka
Ynt: Kod'a İlave
« Yanıtla #1 : 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

Çevrimdışı 1Al2Ver

  • Excelce Destek Ekibi
  • ****
  • İleti: 190
  • Puan +3/-0
  • Cinsiyet: Bay
  • Almasını bilmek kadar, vermesini de bilmek gerek.
  • İşletim Sisteminiz: Windows 11 - 64 Bit
  • Mesleğiniz: Gıda Tespit ve Planlama Uzmanı
  • Office Versiyonunuz: Microsoft Office 365 ProPlus
Ynt: Kod'a İlave
« Yanıtla #2 : 30 Eylül 2016, 21:29:33 »
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.
Yaşamda iyi bir iz bırakın ki, sizden sonra da ailenizin başı dik dursun.