Sayfa 1 den Sayfa 2 ye veri aktar.

[sedat2161]

Hayırlı günler arkadaşlar. Ekli dosyamda A:F sütunundaki bilgileri sayfa 2 ye aktarmak istiyorum. Yalnız E sutunu aktarılmayacak. Şimdiden teşekkür ediyorum.

 

[Muzaffer Ali]

Merhaba.

Sayfadaki tüm veriler boş bir sayfaya aktarılacaksa aşağıdaki kod ile yapılabilir.

Sub Aktar()
    Range("A:D, F:J").Copy Sayfa2.Range("A1")
End Sub

Eğer farklı bir durum varsa lütfen ne istediğinizi daha açık ifade edin.

 

[sedat2161]

Merhaba.

Sayfadaki tüm veriler boş bir sayfaya aktarılacaksa aşağıdaki kod ile yapılabilir.

Sub Aktar()
    Range("A:D, F:J").Copy Sayfa2.Range("A1")
End Sub

Eğer farklı bir durum varsa lütfen ne istediğinizi daha açık ifade edin.

Merhaba Hocam .
- 1. Sayfadaki A 2. Sayfanın A sütununa

-1. Sayfadaki F satırı 2. Sayfanın E sütununa aktarılacak.

 

[tukayf]

Sn. Dalgalikur'un kodlarındaki F yerine E, J yerine G yazdığınızda işlem gerçekleşecektir sanırım.

 

[Muzaffer Ali]

Merhaba Hocam .
- 1. Sayfadaki A 2. Sayfanın A sütununa

-1. Sayfadaki F satırı 2. Sayfanın E sütununa aktarılacak.

Lütfen yukarıda verdiğim kodu deneyin, tam olarak sizin istediğiniz şeyi yapıyor.

 

[tukayf]

Lütfen yukarıda verdiğim kodu deneyin, tam olarak sizin istediğiniz şeyi yapıyor.

Çok özür hocam dikkatsizlik, bilgisizlik ve uykusuzluk birleşince böyle oluyor.

 

[Muzaffer Ali]

Çok özür hocam dikkatsizlik, bilgisizlik ve uykusuzluk birleşince böyle oluyor.

Hayır size demedim. Soruyu soran kişi kodları denemeden cevap yazmış, neden denemeden cevap yazılıyor onu anlayamıyorum.

 

[sedat2161]

Hayır size demedim. Soruyu soran kişi kodları denemeden cevap yazmış, neden denemeden cevap yazılıyor onu anlayamıyorum.

Selamlar Hocam.
Ben kodları denedim ve ondan sonra cevap yazdım. Burada F sütunundaki sonraki bilgilerde geldiği için sizde cevabınızda (Eğer farklı bir durum varsa lütfen ne istediğinizi daha açık ifade edin. ) dediğinizden yardımcı olursunuz diye tekrar yazdım.

 

[Muzaffer Ali]

Örnek dosyanızda verilerin Sayfa2 ye aktarıldığında nasıl bir sonuç almak istediğinizi de gösterecek şekilde yeniden paylaşır mısınız?
Yani veriler Sayfa2 ye aktarıldığında nasıl görünmeli?

 

[sedat2161]

Örnek dosyanızda verilerin Sayfa2 ye aktarıldığında nasıl bir sonuç almak istediğinizi de gösterecek şekilde yeniden paylaşır mısınız?
Yani veriler Sayfa2 ye aktarıldığında nasıl görünmeli?

Hocam A ve F satırları tek gelecek

 

[Muzaffer Ali]

O zaman şöyle olacak

Sub Aktar()
    Range("A:D, F:F").Copy Sayfa2.Range("A1")
End Sub

 

[sedat2161]

O zaman şöyle olacak

Sub Aktar()
    Range("A:D, F:F").Copy Sayfa2.Range("A1")
End Sub

Denedim oldu. teşekkür ederim. Emeğinize sağlık

 

[Muzaffer Ali]

Rica ederim Kolay gelsin.