İKİ SAYFA ARASI SEÇİLİ ALANI KOPYALA

[KaraKartall99]

Merhabalar

Aşağıda vereceğim kodu çalıştırdığımda tüm sayfadaki verileri diğer sayfaya taşıyor, oysa ben sadece beni mause ile seçtiğim aralıktaki verileri diğer sayfaya taşımak istiyorum. İnputbox ile mi çözeriz bu durumu

KODLAR:
Sub SecilenSayfalar()

Dim Syf As Worksheet, _
i As Long, _
Son As Long, _
j As Long, _
ShB As Worksheet

Set ShB = Sheets("BLOKE KARTI")

For j = 5 To ShB.Cells(Rows.Count, "A").End(3).Row Step 14
If ShB.Cells(j, "F") = 0 Then Exit For

Next j

MsgBox ActiveWindow.SelectedSheets.Count & " ADET SAYFA SEÇTINIZ, ISLEMLERI BASLATACAGIM.... N.Y"

For Each Syf In ActiveWindow.SelectedSheets

Son = Syf.Cells(Rows.Count, "B").End(3).Row
If Son < 4 Then Son = 4

For i = 4 To Son

If Syf.Cells(i, "Q") = "" Then

ShB.Range("F" & j) = Syf.Cells(i, "B") 'Parça No
ShB.Range("D" & j + 2) = Syf.Cells(i, "E") 'Hata
ShB.Range("D" & j + 4) = Syf.Cells(i, "D") 'Adet
ShB.Range("G" & j + 4) = Syf.Cells(i, "G") 'Tarih
ShB.Range("J" & j + 4) = Syf.Cells(i, "H") 'Isim
' ShB.Range("D" & j + 6) = Syf.Cells(i, "H") 'Açiklama ?
ShB.Range("J" & j + 6) = Syf.Cells(i, "C") 'Sarj
ShB.Range("E" & j + 8) = Syf.Cells(i, "F") 'Kart Sira No
Syf.Cells(i, "Q") = "ü"
j = j + 14

End If

Next i

Next Syf

End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki komut seçili alanı Sayfa2'ye A1 hücresinden itibaren kopyala-yapıştır ile aktarır.

Option Explicit

Sub Secili_Alani_Kopyala_Diger_Sayfaya_Yapistir()
    Selection.Copy Sheets("Sayfa2").Range("A1")
End Sub

 

[KaraKartall99]

Merhaba Kornan Bey,

Bunu benim paylaştığım kodun hangi satırına uygulamam gerekir?

For Each Syf In ActiveWindow.SelectedSheets

Bu koddan dolayı aktif olduğum sheetteki tüm alanı kopyalıyor.

 

[Korhan Ayhan]

Verdiğiniz kod satırı seçili sayfaları döngüye alır. Başka bir özelliği yoktur.

 

[KaraKartall99]

Döngüye sadece seçtiğim alanı almak için nasıl bir kod yazmam gerekir peki

 

[KaraKartall99]

Yani mause ile seçtiğim alanı

 

[Korhan Ayhan]

Verdiğim kod aktif olduğunuz sayfadaki seçtiğiniz alanı Sayfa2'ye yapıştırır.

 

[KaraKartall99]

Hata alıyorum Korhan Bey

For Each Syf In ActiveWindow.SelectedSheets
Selection.Copy Sheets("Bloke Kartı").Range("A1")

Bu aşamada hata alıyorum

 

[Korhan Ayhan]

Siz bir sayfadan başka bir sayfaya seçtğiniz alanı kopyala-yapıştır yapmak istemiyor musunuz?

Yani iki sayfa arasında bir işlem yapılacak. Başlığınızda bu şekilde zaten.

Bu sebeple For Each Syf In ActiveWindow.SelectedSheets satırına ihtiyacınız yoktur.

 

[KaraKartall99]

Tamam ihtiyacım yok ama onu sildiğimde makro çalışmıyor

 

[KaraKartall99]

Daha önce Necdet bey yardımcı olmuştu, sayfamdan görebilirsiniz. Aynı excel üzerinden konuşuyorum. Necdet beyin yazdığı makroda aktif olduğum sayfanın içerdinde tüm bilgileri kopyalıyor, ama ben aktif olduğum sayfada sadece benim mause ile seçtiğim alanın kopyalanmasını istiyorum, sizin verdiğiniz kodu girdiğimde hata veriyor

 

[Necdet]

Daha önce Necdet bey yardımcı olmuştu, sayfamdan görebilirsiniz. Aynı excel üzerinden konuşuyorum. Necdet beyin yazdığı makroda aktif olduğum sayfanın içerdinde tüm bilgileri kopyalıyor, ama ben aktif olduğum sayfada sadece benim mause ile seçtiğim alanın kopyalanmasını istiyorum, sizin verdiğiniz kodu girdiğimde hata veriyor

Benim orada verdiğim kodlar, tüm sayfalardaki aktarım içindi.

O kodları silin ve korhan beyin kodlarını kendinize uyarlayın.