Verileri Veri Sayfasına Macro İle Aktarma

[yyhy]

Çetele Verilerini Veri Sayfasına Macro İle Aktarabilir miyiz?

 

[Murat OSMA]

İsteğinizi yanlış anlatmışsınız...

Deneyiniz...

Sub Emre()
    Dim i As Integer
        For i = 6 To Sayfa6.[C6].CurrentRegion.Rows.Count
            Sayfa6.Cells(i, 3).Resize(, 4).Copy Sayfa1.Range("B65536").End(3)(2, 1)
        Next i
    i = Empty
End Sub

 

[yyhy]

Sayın Murat OSMA öncelikle ilgi ve alakanıza teşekkürler.

İstediğim veri girdiğim veri sayfasındaki C6 hücresinden F29 Hücresine kadar olan aralığı aylık sayfasına macro ile aktarabilir miyiz? şeklinde olmasını istiyorum.

Verileri aktarırken aylık sayfasına a sütununa sıra numarasını da en son kaldığı yerden devam edebilir mi?

Ayrıca vermiş olduğunuz kodu butona bağladım ama aktarma yapmadı sorun ne olabilir?

Acaba Aylık sayfasında 65514 hücresinde bilgiler var ondan kaynaklanabilir mi?

 

[asi_kral]

Sayın Murat OSMA öncelikle ilgi ve alakanıza teşekkürler.

İstediğim veri girdiğim veri sayfasındaki C6 hücresinden F29 Hücresine kadar olan aralığı aylık sayfasına macro ile aktarabilir miyiz? şeklinde olmasını istiyorum.

Verileri aktarırken aylık sayfasına a sütununa sıra numarasını da en son kaldığı yerden devam edebilir mi?

Ayrıca vermiş olduğunuz kodu butona bağladım ama aktarma yapmadı sorun ne olabilir?

Merhaba
Module'deki kodu bununla değiştirip dener misiniz_?

Sub Aktar()
'Konu       :   Aktarım
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Worksheet
Application.ScreenUpdating = False
Set asi = Sheets("Aylık"): Set kral = Sheets("Veri")
kral.Range("C6:F29").Copy Destination:=asi.Range("B2")
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[Murat OSMA]

Acaba Aylık sayfasında 65514 hücresinde bilgiler var ondan kaynaklanabilir mi?

Evet... Şu kod; Sayfa1.Range("B65536").End(3)(2, 1) Sayfa1'in B sütunundaki dolu olan son satırın bir altına kaydet demek...

 

[yyhy]

Arkadaşlar teşekkürler verilen kodlar işimi gördü ve alternatif oldu. İyi Çalışmalar.

 

[yyhy]

sayın asi kral 1967 bir sorun var. Verileri aylık sayfasında aynı yere yapıştırıyor. Aylık sayfasında en son verinin altına yapıştırmasını istiyorum. Koda ekleme yapabilir misiniz?

 

[asi_kral]

sayın asi kral 1967 bir sorun var. Verileri aylık sayfasında aynı yere yapıştırıyor. Aylık sayfasında en son verinin altına yapıştırmasını istiyorum. Koda ekleme yapabilir misiniz?

Merhaba

Sub Aktar()
'Konu       :   Aktarım
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Worksheet, a As Long
Application.ScreenUpdating = False
Set asi = Sheets("Aylık"): Set kral = Sheets("Veri")
a = asi.Range("B" & Rows.Count).End(xlUp).Row + 1
kral.Range("C6:F29").Copy Destination:=asi.Range("B" & a)
asi.Range("A2") = 1
a = asi.Range("B" & Rows.Count).End(xlUp).Row
asi.Range("A2:A" & a).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Bu kodu deneyin. Aynı zamanda sıra numarası ekler. A sütununa

 

[yyhy]

Sayın asi kral 1967 bir sorun daha var. Run-time error 1004 uyarısı alıyorum. Acaba örnek dosya üzerine ekleyebilir misiniz bende mi bir hata var.

 

[asi_kral]

Sayın asi kral 1967 bir sorun daha var. Run-time error 1004 uyarısı alıyorum. Acaba örnek dosya üzerine ekleyebilir misiniz bende mi bir hata var.

Dosyanızı ekleyin bakayım. Not : Sizin Dosyanız dolu en alt satırları silmelisiniz son dolu satırı bulup ona göre işlem yapar.

 

[yyhy]

Evet son satırlarda dolu olan kısımları sildim sorun çözüldü. Teşekkürler.

 

[asi_kral]

Evet son satırlarda dolu olan kısımları sildim sorun çözüldü. Teşekkürler.

Kolay Gelsin.