Sıradaki sütun

[MAYKMAYKMAYK]

takıldım kaldım bir veri analiz tablosu oluşturuyorum A:A sütunundan CEH:CEH sütununa kadar 2170 adet veri kayıtlı bunları teker teker analizini yapıp kaydetmeye calışıyorum bir adet yapıştır makrosu oluşturdum bir adette kaydet macrosu oluşturdum yapıştır makrosunun icine kaydeti calıştır yaparak yapıştır makrosuna veriyi yapıştırınca direk analizi yapıp kaydetiyor takıldığım konu veriyi yapıştır yapınca kaydetib bir sonrakine gecsin otomatik olarak son dolu sütuna kadar calışıp kaydetsin
Sub Makro3()
'
' Makro3 Makro
'
' Klavye Kısayolu: Ctrl+İ
'
Sheets("VeriGiris").Select
Range("D1").Select
ActiveSheet.Paste
Application.Run "KAYDET"

End Sub
macrom bu arkadaşlar

 

[muygun]

Merhaba;

Sheets("VeriGiris").Select satırından sonra

sondolu = Sheets("VeriGiris").Cells(1, 256).End(xlToLeft).Column+1

satırı ile VeriGiris sayfası 1. satırda son dolu sütun no'sunu bulursunuz.

Range("D" & sondolu).Select

ile ilgili hücreye konumlanırsınız.

İyi çalışmalar.

 

[MAYKMAYKMAYK]

Merhaba;

Sheets("VeriGiris").Select satırından sonra

sondolu = Sheets("VeriGiris").Cells(1, 256).End(xlToLeft).Column+1

satırı ile VeriGiris sayfası 1. satırda son dolu sütun no'sunu bulursunuz.

Range("D" & sondolu).Select

ile ilgili hücreye konumlanırsınız.

İyi çalışmalar.

Sub Makro3()
'
' Makro3 Makro
'
' Klavye Kısayolu: Ctrl+İ
'
Sheets("VeriGiris").Select
Range("D1").Select
ActiveSheet.Paste
Application.Run "KAYDET"
sondolu = Sheets("VeriGiris").Cells(1, 256).End(xlToLeft).Column + 1
Range("D" & sondolu).Select
End Sub
Yaptım olmadı
Sub Makro3()
'
' Makro3 Makro
'
' Klavye Kısayolu: Ctrl+İ
'
Sheets("VeriGiris").Select
sondolu = Sheets("VeriGiris").Cells(1, 256).End(xlToLeft).Column + 1
Range("D1" & sondolu).Select
Range("D1").Select
ActiveSheet.Paste
Application.Run "KAYDET"

End Sub
Buda olmadı zaten benim makrom calışıyor sadece otomatik olarak bir sonraki sütuna otomatik gecsin analizini yapıp kaydetsin istiyorum

 

[muygun]

Örnek dosya eklerseniz daha anlaşılır olur.
Örneği görerek (eğer formül taşımıyorsanız) copy-paste yerine direkt veriyi atmak daha mantıklı olabilir.

 

[MAYKMAYKMAYK]

Örnek dosya eklerseniz daha anlaşılır olur.
Örneği görerek (eğer formül taşımıyorsanız) copy-paste yerine direkt veriyi atmak daha mantıklı olabilir.

dosya nasıl yüklenir
verilerim arşiv1 sayfasında a-b-c-d-e-sütunları olarak ceh sütununa kadar sıralanıyor a sütununu kopyala yapıyorum veri giriş sayfasındaki yapıştır makrosuna basıyorum otomatik analizini kaydet sayfasına kaydetiyor işte bundan sonra otomatik olarak tekrar arşiv1 sayfasına dönsün işlemi otomatik yapsın istiyorum verilerim yanyana sütunlardan oluşuyor alt alta satırlardan değil

 

[muygun]

Dosya yüklemek için;
a) Altın üye olarak buraya dosya ekleyebilir, burdan dosya indirebilir ve buradaki eğitim materyallerine erişim hakkı alırsınız.
b) bir paylaşım sitesine örnek dosyanızı yükler ve indirme linkini burada paylaşırsınız.

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

gibi...

 

[MAYKMAYKMAYK]

Dosya yüklemek için;
a) Altın üye olarak buraya dosya ekleyebilir, burdan dosya indirebilir ve buradaki eğitim materyallerine erişim hakkı alırsınız.
b) bir paylaşım sitesine örnek dosyanızı yükler ve indirme linkini burada paylaşırsınız.

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

gibi...

Nesine_3_mac_analiz.xlsm dosyasını indir - download

Nesine_3_mac_analiz.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[MAYKMAYKMAYK]

Nesine_3_mac_analiz.xlsm dosyasını indir - download

Nesine_3_mac_analiz.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

örnek dosya yükledim teşekkür ederim

 

[YUSUF44]

Bunu mu istiyorsunuz?

Sub Makro3()
'
' Makro3 Makro
'
' Klavye Kısayolu: Ctrl+İ
'
Set s1 = Sheets("Arşiv1")
Set s2 = Sheets("VeriGiris")

sonsut = s1.Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For i = 1 To sonsut
    s1.Columns(i).Copy Sheets("VeriGiris").[D1]
    Application.Run "KAYDET"
Next
Application.ScreenUpdating = True
End Sub

 

[MAYKMAYKMAYK]

Bunu mu istiyorsunuz?

Sub Makro3()
'
' Makro3 Makro
'
' Klavye Kısayolu: Ctrl+İ
'
Set s1 = Sheets("Arşiv1")
Set s2 = Sheets("VeriGiris")

sonsut = s1.Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For i = 1 To sonsut
    s1.Columns(i).Copy Sheets("VeriGiris").[D1]
    Application.Run "KAYDET"
Next
Application.ScreenUpdating = True
End Sub

tam üzerine bastın çok teşekkür ederim