Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Girilen sayı kadar makro ile hücre seçme, kopyalama  (Okunma sayısı 11305 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı horozmen90

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: eren er
  • Doğum Yılınız: 1990
  • İl / İlçe: Denzli
  • Office Versiyonunuz: 2007
Merhabalar. 

Öncelikle belirtmen gerekir ki, Excel'de makro oluşturma konusunda yeni sayılırım.

Sayfa1'in B sütununda 1'den 100 kadar bilgiler var.
Bu bilgileri makro ile Sayfa2'nin D sütununa kopyalamak istiyorum.
Makroyu oluşturuyorum ve bu makroyu bir düğmeye atıyorum. Makroyu çalıştırdığımda Sayfa1'in B sütunundaki bilgileri Sayfa2'deki D sütununa kopyalıyor. Makro1'in kod sayfasında aşağıdaki kodlar yazıyor.

Sub Makro1()
Range("B1:B10").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("D1").Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
Range("D1").Select
End Sub

Ancak bu makro her defasında ilk 10 kişiyi kopyalıyor.
Ben Sayfa1'in A1 hücresine değer girmek ve bu değere göre kopyalama yapmak istiyorum.
Örneğin;
A1 hücresine 15 sayısı girilip makro çalıştırıldığında B1:B15 hücrelerinin
A1 hücresine 24 sayısı girilip makro çalıştırıldığında B1:B24 hücrelerinin seçilip Sayfa2'ye kopyalanmasını yapabilir miyim?

Ve bu makroyu düğmeye bağlayıp, düğmeye tıkladığımda çalıştırabilir miyim?

İlginize şimdiden teşekkürler.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Girilen sayı kadar makro ile hücre seçme, kopyalama
« Yanıtla #1 : 13 Mart 2012, 20:21:05 »
Merhaba Eren Bey,

Şu kodları dener misiniz?

Kod: [Seç]
sayi = Sheets("Sayfa1").Range("A1").Value   ' Sayi girilen hücre
Sheets("Sayfa2").Range("D1:D65530").ClearContents  'Sayfa2'nin D1:D65530 aralığını temizle
Range("B1:B" & sayi).Copy Sheets("Sayfa2").Range("D1") 'Belirtilen alanı seç, sayfa2'nin D'ine yapıştır
Application.CutCopyMode = False  'Kopyalama modunu iptal et
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)