Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 20-03-2017, 11:39   #11
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,462
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aşağıda kısa olarak kodlar ve açıklamaları aşağıdadır.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm_kopyala() 'Prosedur başlangıcı
Application.ScreenUpdating = False
Application.EnableEvents = False 'işlemi hızlı yapması için uyazıldı.

Sonkayit = Range("H65000").End(xlUp).Row 'H sütunundaki son kayıdı bulduk
Range("H3:H" & Sonkayit).Copy 'H3 ile H sütunundaki son kayıt arasını Hafızaya kopyaladık

Range("F3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'Seçili alanı değer olarak F3 den itibaren yapıştırdık

Application.ScreenUpdating = True 'işlemi hızlı yapması için uyazıldı.
Application.EnableEvents = True
End Sub 'Prosedur sonu
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 20-03-2017, 12:01   #12
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 373
Excel Vers. ve Dili:
excel2013
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Aşağıda kısa olarak kodlar ve açıklamaları aşağıdadır.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm_kopyala() 'Prosedur başlangıcı
Application.ScreenUpdating = False
Application.EnableEvents = False 'işlemi hızlı yapması için uyazıldı.

Sonkayit = Range("H65000").End(xlUp).Row 'H sütunundaki son kayıdı bulduk
Range("H3:H" & Sonkayit).Copy 'H3 ile H sütunundaki son kayıt arasını Hafızaya kopyaladık

Range("F3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'Seçili alanı değer olarak F3 den itibaren yapıştırdık

Application.ScreenUpdating = True 'işlemi hızlı yapması için uyazıldı.
Application.EnableEvents = True
End Sub 'Prosedur sonu
Birde kodunuzun altına aşağıdaki eklenirse süper yazmışsınız üstadım elinize beyninize sağlık.
Application.CutCopyMode = False
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 15:20   #13
mhrcvk
Altın Üye
 
Giriş: 18/10/2012
Şehir: Antalya
Mesaj: 65
Excel Vers. ve Dili:
2013 türkçe
Varsayılan tşk

Alıntı:
yanginci34 tarafından gönderildi Mesajı Görüntüle
Aşağıdaki kodun kırmızı yerlerini kendi dosyanıza göre uyarlayıp denermisiniz?

Sub eee()
'
' eee Makro
'

'
Sheets("Sayfa1").Range("g3:g183").Select
Selection.Copy
Sheets("Sayfa1").Range("e3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-12
ActiveCell.Offset(0, 3).Range("A1").Select
Application.CutCopyMode = False
Call ern
End Sub
Sub ern()
'
' ern Makro
'

'
Sheets("Sayfa1").Range("h3:h183").Select
Selection.Copy
Sheets("Sayfa1").Range("f3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-21
ActiveCell.Offset(0, 2).Range("A1").Select
Application.CutCopyMode = False
End Sub
Bu tam işimi gördü ek olarak istediğim gibi revize edebiliyor olmamda güzel Elinize emeğinize sağlık.
mhrcvk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 15:27   #14
mhrcvk
Altın Üye
 
Giriş: 18/10/2012
Şehir: Antalya
Mesaj: 65
Excel Vers. ve Dili:
2013 türkçe
Varsayılan tşk

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Aşağıda kısa olarak kodlar ve açıklamaları aşağıdadır.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm_kopyala() 'Prosedur başlangıcı
Application.ScreenUpdating = False
Application.EnableEvents = False 'işlemi hızlı yapması için uyazıldı.

Sonkayit = Range("H65000").End(xlUp).Row 'H sütunundaki son kayıdı bulduk
Range("H3:H" & Sonkayit).Copy 'H3 ile H sütunundaki son kayıt arasını Hafızaya kopyaladık

Range("F3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'Seçili alanı değer olarak F3 den itibaren yapıştırdık

Application.ScreenUpdating = True 'işlemi hızlı yapması için uyazıldı.
Application.EnableEvents = True
End Sub 'Prosedur sonu
Emeğinize sağlık özellikle açıklaması olması çok hoş olmuş teşşekkür ederim.
mhrcvk Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:17


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden