Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Gunaydın Arkadaslar
Açtığım başlık için Çok Ã?zür dilerim Aradım ama bulduklarım Userform için kullanılabilir orneklerdi.
Üzgünüm.
*****************
Sheets("ozet").Select
Range("C3,D3,E3,C12,D12,E12,C13,D13,E13").Select
Selection.Copy
Sheets("tablo").Select
?????????????????????????????????????????????????????????
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Range("b2:b30000").Select
Selection.NumberFormat = "dd/mm/yy"
Range("a1").Select
Sheets("ozet").Select
Range("C2").Select
*************************
Arkadaslar anlasıldığı uzere Ã?zet sayfasından Tablo sayfasına Değerleri yapıstırıcam
ama ben bu işlemi yaptığımda tablo sayfasının a kolonunun dolu olan en son satırının bir altına yapacam ama her seferınde hucreyı secmek zorun da kaliyorum ..
????????? olan yere gelecek olan kodu sağlayamadım yardımlarını beklıyorum.
SaygıLar
Açtığım başlık için Çok Ã?zür dilerim Aradım ama bulduklarım Userform için kullanılabilir orneklerdi.
Üzgünüm.
*****************
Sheets("ozet").Select
Range("C3,D3,E3,C12,D12,E12,C13,D13,E13").Select
Selection.Copy
Sheets("tablo").Select
?????????????????????????????????????????????????????????
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Range("b2:b30000").Select
Selection.NumberFormat = "dd/mm/yy"
Range("a1").Select
Sheets("ozet").Select
Range("C2").Select
*************************
Arkadaslar anlasıldığı uzere Ã?zet sayfasından Tablo sayfasına Değerleri yapıstırıcam
ama ben bu işlemi yaptığımda tablo sayfasının a kolonunun dolu olan en son satırının bir altına yapacam ama her seferınde hucreyı secmek zorun da kaliyorum ..
????????? olan yere gelecek olan kodu sağlayamadım yardımlarını beklıyorum.
SaygıLar