hücre aralığı seçimi

[bcaptug]

Arkadaşlar slm, macro ile sheet1 deki a2:e100 aralıgını otomatik olarak (a2:e2), (a3:e3) gibi her seferinde bir satırı seçip, sheet2 ye kopyalamasını nasıl sağlayabilirim? Çok teşekkürler.

 

[Orion1]

Kendi dosyanıza göre sayfa isimlerini veriniz.

Sheets("Sayfa1").Range("A2:A100").Copy Sheets("Sayfa2").Range("A2")

 

[Seyit Tiken]

Evren beyin kodlarını ufak bir değişiklik yapıp, alt alta sıralama yapılabilir.

Sub Düğme1_Tıklat()
Sayfa1.[a2:e100].Copy [sayfa2!a6500].End(3).Offset(1)
MsgBox "İşlem Tamam", vbInformation
End Sub

 

[bcaptug]

Kendi dosyanıza göre sayfa isimlerini veriniz.

Sheets("Sayfa1").Range("A2:A100").Copy Sheets("Sayfa2").Range("A2")

yardımınız için cok teşekkür ederim. aslında yapmak istediğim söyle bişey, diyelim ki a2:e2 aralıgını sectikten sonra sayfa 2 ye yapıstırdı, ben araya baska macro koycam onu yapcak, o macro bitince geri dönüp a3:e3 aralıgını secip yine benim araya koyacagım macro işlemlerini yapacak. bunu nasıl sağlarım? loop ile oluyor sanırım ama nasıl bilmiyorum

 

[Orion1]

yardımınız için cok teşekkür ederim. aslında yapmak istediğim söyle bişey, diyelim ki a2:e2 aralıgını sectikten sonra sayfa 2 ye yapıstırdı, ben araya baska macro koycam onu yapcak, o macro bitince geri dönüp a3:e3 aralıgını secip yine benim araya koyacagım macro işlemlerini yapacak. bunu nasıl sağlarım? loop ile oluyor sanırım ama nasıl bilmiyorum

Buyurun kodlarınız.

Dim i As Byte
For i = 2 To 100
    Sheets("Sayfa1").Range("A" & i).Copy Sheets("Sayfa2").Range("A" & i)
    'Buraya çalışacak kodlarınızı yazın.
Next i

 

[bcaptug]

Buyurun kodlarınız.

Dim i As Byte
For i = 2 To 100
    Sheets("Sayfa1").Range("A" & i).Copy Sheets("Sayfa2").Range("A" & i)
    'Buraya çalışacak kodlarınızı yazın.
Next i

Evren bey cok tsk ederim, sizi ugrastırıyorum ama bu macro sadece a kolonundakileri kopayalıyor. a ve e kolonları arasındakileri satır satır sayfa2 ye kopyalamak için macroya e kolonunu neresine tanımlamam gerekiyor?
Şöyle bişiy yaptım ama hata verdi

Sheets("Sheet1").Range("A" & i:"F" & i).Copy Sheets("Sheet2").Range(A2)

 

[Orion1]

Evren bey cok tsk ederim, sizi ugrastırıyorum ama bu macro sadece a kolonundakileri kopayalıyor. a ve e kolonları arasındakileri satır satır sayfa2 ye kopyalamak için macroya e kolonunu neresine tanımlamam gerekiyor?
Şöyle bişiy yaptım ama hata verdi

Sheets("Sheet1").Range("A" & i:"F" & i).Copy Sheets("Sheet2").Range(A2)

Aşağıdaki kodu kullanınız.

Dim i As Byte
For i = 2 To 100
    Sheets("Sayfa1").Range("A" & i & ":E" & i).Copy Sheets("Sayfa2").Range("A" & i)
    'Buraya çalışacak kodlarınızı yazın.
Next i

 

[bcaptug]

Aşağıdaki kodu kullanınız.

Dim i As Byte
For i = 2 To 100
    Sheets("Sayfa1").Range("A" & i & ":E" & i).Copy Sheets("Sayfa2").Range("A" & i)
    'Buraya çalışacak kodlarınızı yazın.
Next i

SÜPERSİNİZ

 

[Orion1]

SÜPERSİNİZ

Rica ederim.
O sizin süperliğiniz.

 

[bcaptug]

Rica ederim.
O sizin süperliğiniz.

hazır sizi bulmuşken bikaç bişi daha sorsam nası olur

mesela kopyala yaptıktan sonra sayfa2 de hep aynı yere nası yapıstırabiliris?

 

[Orion1]

hazır sizi bulmuşken bikaç bişi daha sorsam nası olur

mesela kopyala yaptıktan sonra sayfa2 de hep aynı yere nası yapıstırabiliris?

Bu söylediklerinizden bir şey anlamdım.

 

[bcaptug]

Bu söylediklerinizden bir şey anlamdım.

Diyelim ki sayfa1 deki a2:e2 aralıgını kopyaladık, sayfa2 de a2:e2 yapıstırdık. a3:e3 aralıgını yine sayfa2 de a2:e2 ye kopyalıycam. cünkü ben kopyalama isleminden sonra arada bir macro calıstırıyorum ve hep aynı yere kopyalanması gerekiyor. olabiletesi varmı?

 

[Orion1]

Diyelim ki sayfa1 deki a2:e2 aralıgını kopyaladık, sayfa2 de a2:e2 yapıstırdık. a3:e3 aralıgını yine sayfa2 de a2:e2 ye kopyalıycam. cünkü ben kopyalama isleminden sonra arada bir macro calıstırıyorum ve hep aynı yere kopyalanması gerekiyor. olabiletesi varmı?

İşte kodlar.

Dim i As Byte
For i = 2 To 100
    Sheets("Sayfa1").Range("A" & i & ":E" & i).Copy Sheets("Sayfa2").Range("A2")
    'Buraya çalışacak kodlarınızı yazın.
Next i

 

[bcaptug]

İşte kodlar.

Dim i As Byte
For i = 2 To 100
    Sheets("Sayfa1").Range("A" & i & ":E" & i).Copy Sheets("Sayfa2").Range("A2")
    'Buraya çalışacak kodlarınızı yazın.
Next i

üstad sen bir dahisin

cok cok cok tesekkür ediyorum

 

[Orion1]

üstad sen bir dahisin

cok cok cok tesekkür ediyorum

Rica ederim.
İyi çalışmalar.

 

[isteobenim]

değişken hücre seçimi

Merhaba arkadaşlar

forumda epeyce aradım ama malesef istediğim cevabı bulamadım.
aşağıdaki kodda Range("D3: sabit olacak ancak F29 değeri sürekli değişkendir.
Daha doğrusu F29 değerini bir hücreden almasını istiyorum.Hücredeki sayı kaçsa D3 ten itibaren o kadar satır seçmek istiyorum.Yardımcı olabilirmisiniz.

teşekkürler,

Sub Makro1()
Range("D3:F3").Select
Selection.Copy
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("D3:F29")
Range("D3:F29").Select
Range("A1").Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz. A1 yerine kendi hücre adresinizi yazınız.

Range("D3:F" & [COLOR=red]Range("A1").Value[/COLOR]).Select

 

[isteobenim]

Korhan Bey,

Çok teşekkür ederim.Kod işime yaradı.

İyi Çalışmalar,