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, 12:39   #11
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 597
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 2002- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 20-03-2017, 13:01   #12
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 214
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, 16:20   #13
mhrcvk
Altın Üye
 
Giriş: 18/10/2012
Şehir: Antalya
Mesaj: 34
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, 16:27   #14
mhrcvk
Altın Üye
 
Giriş: 18/10/2012
Şehir: Antalya
Mesaj: 34
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 10:06


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Kobi Danışmanlık - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu OSGB - Lingerie - Dyeing Machine - Çorlu Temizlik- Didim Çatı İnşaat
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden