Çözüldü Makroyla verileri farklı bir yerde dizme

[ockucukay]

Merhaba

Ekli dosyada gördüğünüz gibi toplamda 5 sütunda veriler var. Her bir satır, bir ölçüm periyodunda operatörün girdiği ölçülere ait. Bunları değerlendirmeye almak istediğimiz zaman sağ tarafta gördüğünüz hale getirmemiz gerekiyor ve çok zaman alıyor. Bunu nasıl makro ile halledebiliriz? Yardımlarınızı rica ediyorum.

Örnek dosyam

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Range("L2:N65536").ClearContents
For sat = 2 To Range("A65536").End(xlUp).Row
For süt = 2 To 6
sonsatir = Range("L65536").End(xlUp).Row + 1
Cells(sonsatir, "L") = Cells(sat, süt)
Cells(sonsatir, "m") = Cells(sat, "g")
Cells(sonsatir, "n") = Cells(sat, "h")
Next süt
Next sat
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirin.
Bir butona bağlayarak çalıştırın.
İyi çalışmalar.

 

[ockucukay]

Merhaba;
Sayfanın kod bölümüne;

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Range("L2:N65536").ClearContents
For sat = 2 To Range("A65536").End(xlUp).Row
For süt = 2 To 6
sonsatir = Range("L65536").End(xlUp).Row + 1
Cells(sonsatir, "L") = Cells(sat, süt)
Cells(sonsatir, "m") = Cells(sat, "g")
Cells(sonsatir, "n") = Cells(sat, "h")
Next süt
Next sat
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirin.
Bir butona bağlayarak çalıştırın.
İyi çalışmalar.

Allah sizden razı olsun. Çok işime yaradı. Çok teşekkür ederim.

 

[seddur]

Userform dan sütunlara artarak veri girdirme kodunu arıyorum.Excell de yeniyim.Yardımcı olursanız sevinirim.

 

[muygun]

Merhaba;

Userform dan sütunlara artarak veri girdirme kodunu arıyorum.Excell de yeniyim.Yardımcı olursanız sevinirim.

Altın üyesiniz. Neden örnek dosya eklemiyorsunuz?
Örneksiz çözümlenemez. (kaç sütun var? , hangi sütuna göre?, vs.. vs..)