UsedRange copy kodu

[spasmex97]

Arkadaşlar kolay gelsin sheet 1 üzerinde kullandığım alan içerisinden 2 satır yukarısını 2 satır solunu kopyalayıp 2. sheet e geçirmek istiyorum nasıl yapabilirim?

 

[Korhan Ayhan]

Hücre adresi vererek yaptırmak istediğiniz işlemi açıklar mısınız?

 

[spasmex97]

Hücre adresi vererek yaptırmak istediğiniz işlemi açıklar mısınız?

sheet1 de bir yol matrisi olucak , kare bir matris sallıyorum 10 satır ve j. sutüna kadar değerler bulunacak içinde 11 ve 12. satırda ve 11. 12. sütunda ayrı bir veri tutucam ama matrisin tamamını başka bir işlemde tekrar kullanmak için kopyalayıp başka bir sheete atmam gerekiyor bu yüzden 2 eksik satır ve 2 eksik sütun halinde kullanılan alanı kopyalamayı düşündüm

 

[Korhan Ayhan]

Anlamadım..

Şu şekilde ifade etseniz daha kolay olmaz mı?

Kullandığım alan B5:K22 hücre aralığıdır. Makro ile ben B5:J20 aralığını diğer sayfaya değer olarak aktarmak istiyorum.

 

[spasmex97]

Anlamadım..

Şu şekilde ifade etseniz daha kolay olmaz mı?

Kullandığım alan B5:K22 hücre aralığıdır. Makro ile ben B5:J20 aralığını diğer sayfaya değer olarak aktarmak istiyorum.

demek istediğim aslında buydu excel sheetinde çok fazla hakim olmadığım için terimleri doğru seçemedim , ama matrisimin boyutu değişken olacağı için sabit bir aralık veremem

 

[Korhan Ayhan]

Ben anladığım şekilde cevabımı paylaşıyorum. Siz kendinize uyarlarsınız.

Option Explicit

Sub Kullanilan_Alani_Kopyala()
    With Sheets("Sheet1").UsedRange
        .Resize(.Rows.Count - 2, .Columns.Count - 2).Copy Sheets("Sheet2").Range("A1")
    End With
End Sub

 

[spasmex97]

Ben anladığım şekilde cevabımı paylaşıyorum. Siz kendinize uyarlarsınız.

Option Explicit

Sub Kullanilan_Alani_Kopyala()
    With Sheets("Sheet1").UsedRange
        .Resize(.Rows.Count - 2, .Columns.Count - 2).Copy Sheets("Sheet2").Range("A1")
    End With
End Sub

evet sanırım bu deneyeceğim , teşekkür ederim

 

[spasmex97]

Ben anladığım şekilde cevabımı paylaşıyorum. Siz kendinize uyarlarsınız.

Option Explicit

Sub Kullanilan_Alani_Kopyala()
    With Sheets("Sheet1").UsedRange
        .Resize(.Rows.Count - 2, .Columns.Count - 2).Copy Sheets("Sheet2").Range("A1")
    End With
End Sub

ayrıca row ve column count u nasıl kenarda tutabilirim ?

 

[Korhan Ayhan]

İstediğiniz bu mu?

Satir = Sheets("Sheet1").UsedRange.Rows.Count
Sutun = Sheets("Sheet1").UsedRange.Columns.Count

 

[spasmex97]

ayrı bir sorum olacak vba kodunu yazıp kaydetmeye çalıştığımda imzalama yetkiniz yok diyor kaydet diyorum kaydediyor ama daha sonra dosyayı açmaya çalıştığımda dosya uzantısı geçerli değil diyerek dosyayı açamıyorum

 

[Korhan Ayhan]

Makro kodları olan dosyaları genellikle ".xls" ya da ".xlsm" uzantılı kaydetmelisiniz. Bu işlemi kaydet işleminde dosya türü kutusundan yapabilirsiniz.