Seçim yaparak kopyalamak

[qwen]

Arkadaşlar Merhaba;

Þimdi Sayfa1 de bir tablomuz var ve ben Sayfa1 deyken;

org1 = ActiveSheet.Range("B2:C3").Value
Sheets("Sayfa2").Select
ActiveSheet.Range("A1:B2").Value = org1

Bu makro yardımıyla Sayfa1 de B2 den C3 e kadar olan bilgiyi Sayfa 2 de A1 den B2 ye kadar kopyalıyorum.

Þimdi sorunum şu ki benim kopyalamak istedigim alan hep B2 den C3 e kadar değil. İstedigim alanı mouse ile secmek ve o alanı kopyalam istiyorum. Yapıstırmasını ben hallederim cunki onunda ayrı bir derdi var. Sayfa1 de B2:C3 yerine benim sectigim alanı kopyalayayım yeter.

İlginiz için şimdiden çok teşekkür ederim

 

[sergions]

Eğer yanlış anlamadıysam istediğiniz şey

selection.copy

Kolay Gelsin.

 

[qwen]

İlgin icin tesekkur ederim oncelikle. Evet bu benim sorunumu çözer. Fakat bu seçimin adını ben nasıl org1 koyarım, tıpkı yukarıda yaptıgım gibi? Tam olarak istediğim bu çünkü.

 

[sergions]

Kopyalama ve Yapıştırma işlemini aynı sayfada yaptığını varsayarsak;

org1 = Selection.Address

Selection = Range(org1).Value

eğer yapıştırmayı farklı sayfada yapıyorsan;

org1 = Selection.Address
sayfa = ActiveSheet.Name

.
.
.
Selection = Sheets(sayfa).Range(org1).Value

Not : Eğer kopyala ve yapıştır işlevlerini iki ayrı makro içinde kullanıyorsan, kodların en üstüne ( Sub ifadesinin de üstüne)

Public org1, sayfa

yazmalısın, böylece org1 ve sayfa değişkenlerine atadığın değerler tüm kodlarında geçerli olacaktır.


Kolay Gelsin.





Hatırlatma: yukarıdaki kodları kullanabilmen için yapıştıracağın aralık ile kopyaladığın aralığın eşit olması gerekiyor.
Yani A1:A5 aralığını kopyaladıysan, yapıştıracağın aralık da B10:B15 şeklinde olmalıdır.

 

[ibrahimgul]

Arkadaşlar öncelikle emeklerinize sağlık diyeyim
Bu konuda benim de bir problemim var.
Elimde 1. sayfadaki A1den A10 kadar olan değerleri alıp 2. sayfanın 1. satırına aktaran aşağıdaki kod var.

Sub Kaydet()
Dim say As Integer
Set S1 = Worksheets("Sayfa1")
Set S2 = Worksheets("Sayfa2")
say = WorksheetFunction.CountA(S2.Range("A:A"))
S1.Range("A1:A10").Copy
S2.Cells(say + 1, 1).PasteSpecial , , , True
Application.CutCopyMode = False
End Sub

Benim istediğim ise aktarılacak olan kısmın A1:A10 arası değil de meselâ A2, B2, A4, C4,C5, A8 gibi 4-5 hücrenin seçilip kopyalanması ve 2. sayfadaki 2. satırdan itibaren eklenmesi ve her seferindeki bir alt satırdan devam etmesi.
Bunun için yukarıdaki kodu nasıl uyarlamalıyım.
Þimdiden teşekkürler.