5 çal. sayfasından sayfa 1 e veri aktarmak

[arol11]

İyi günler ve iyi çalışmalar dilerim.
6 tane sayfam var .Sayfa 1 e diğer 5 sayfadan veri aktarmak istiyorum.Fakat bunu tüm sayfalardaki A sutunu karsısındaki B sutunundaki verileri Sayfa 1 deki A sutunu yerlerine aktarmak.
İyi çalışmalar ve başarılar dilerim.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Sub aktar()
Dim sonsat As Long, k As Long, i As Integer
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("B2:B65536").ClearContents
sonsat = Cells(65536, "A").End(xlUp).Row
For k = 2 To sonsat
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> "Sayfa1" Then
            Sheets(i).Select
            Set c = Range("A2:A65536").Find(Sheets("Sayfa1").Cells(k, "A").Value, , xlValues, xlWhole)
            If Not c Is Nothing Then
                Sheets("Sayfa1").Cells(k, "B").Value = Sheets(i).Cells(c.Row, "B").Value
                Exit For
            End If
        End If
    Next i
Next k
Sheets("Sayfa1").Select
Application.ScreenUpdating = True
Set c = Nothing
MsgBox "AKTARMA İŞLEMİ TAMAMLANDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[Skorpiyon]

Sayın Arol11,

Dilerim işinizi görür.

Saygılarımla...

 

[Skorpiyon]

Sayın Orion2,

Yine çok hızlısınız

Saygılarımla...

 

[Orion1]

Sayın Orion2,

Yine çok hızlısınız

Saygılarımla...

Rica ederim.
Saygılar karşılıklı.

 

[arol11]

Herzamanki gibi Sayın Sertkaya ,Sayın Orion2 umarım dikkate değer bu çalışmalarınız ve hızınız ve yardımlarınız size zahmet vermiyordur.Çok teşekkür ederim.Haa sayın orion2 makronuz sayın sertkayanınkine nazaran biraz daha hızlı.
İyi çalışmalar ve başarılar dilerim,içtenlikle.Hoşçakalın.

 

[Orion1]

Herzamanki gibi Sayın Sertkaya ,Sayın Orion2 umarım dikkate değer bu çalışmalarınız ve hızınız ve yardımlarınız size zahmet vermiyordur.Çok teşekkür ederim.Haa sayın orion2 makronuz sayın sertkayanınkine nazaran biraz daha hızlı.
İyi çalışmalar ve başarılar dilerim,içtenlikle.Hoşçakalın.

Rica ederim.
Ne zahmeti.
İyi çalışmalar.

 

[Skorpiyon]

Sayın arol11,

Ben acemiyim daha. Kulağımızı kısa yoldan tutmayı da öğrenecez bigün inş.

Saygılarımla...

 

[arol11]

Rica ederim ,bana göre de çok ustasınız .
Hoşçakalın,

 

[Skorpiyon]

Sayın arol11,

Bizi usta görmeniz inanın benim açımdan çok hoş ve onurlandırıcı. Yalnız gerçekten henüz bir acemiyim. Öğrenilecek o kadar çok şey var ve zaman o kadar yetersiz ki...

Saygılarımla...

 

[arol11]

Sayın Orion2 sizin kodlarınıza baktım biraz.Sanırım sayfa sayısının miktarı önemli değil.Sayfa sayısı 10 olsa dahi verileri aktarmak mümkün olacak galiba,Keza sayfa sayısı 2 de olsa mümkün görünüyor.

 

[arol11]

Evet evet denedim umduğum gibi .
Kolay gelsin ,iyi çalışmalar.

 

[Orion1]

Sayın Orion2 sizin kodlarınıza baktım biraz.Sanırım sayfa sayısının miktarı önemli değil.Sayfa sayısı 10 olsa dahi verileri aktarmak mümkün olacak galiba,Keza sayfa sayısı 2 de olsa mümkün görünüyor.

Evet tesbitiniz doğrudur.