Verileri Aktar ve Dosya Oluştur

[ormann]

İyi günler ekli dosyada veri sayfasında B10 :AR89 hücre aralığındaki istif numarası ,çapı,boyu ve adedi yazılı verileri makro ile istif sayfasına istif numarası,çapı,boyu ve adedi yazılı olanları aktarıp ;masa üstüne Ebat Listesi Klasörü ve bu klasörün içerine istif numarasının yazılı olduğu isimle istif sayfasını kaydedebilir miyiz. İnşaallah böyle bir makro yapılabilir. Yardımınızı bekliyorum. Saygılar
Not : C5 hücresindeki istif numarasının istif sayfasındaki gibi bütün aktarılan satırların karşısına yazacak
Not: İstif sayfasında el ile girilmiş verileri makro ile atacak

İndir Örnek

Dosyayı indir Örnek

dosya.co

 

[ormann]

Saygıdeğer arkadaşlar;makroya acil olarak ihtiyacım var .Bakabilir misiniz ?

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub istifle()
Set s1 = Sheets("Veri")
Set s2 = Sheets("istif")
eski = WorksheetFunction.Max(2, s2.Cells(Rows.Count, "A").End(3).Row)
s2.Range("A2:D" & eski).ClearContents
For cap = 10 To 89
    For boy = 2 To 44 Step 3
        If s1.Cells(cap, boy) > 0 Then
            yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
            s2.Cells(yeni, "A") = s1.[C5]
            s2.Cells(yeni, "B") = s1.Cells(cap, "A")
            s2.Cells(yeni, "C") = s1.Cells(8, boy)
            s2.Cells(yeni, "D") = s1.Cells(cap, boy)
        End If
    Next
Next
s2.Activate
MsgBox yeni - 1 & " adet veri aktarıldı", vbInformation
End Sub

 

[hmtstc]

hocam bazı sorunlar var gibi geldi bana,

öncelikle aynı çaptan soldaki sütunda defalarca yazılı, neden ? bence her çaptan 1 satır olmalı. sistem daha doğru çalışır.
ben düzenledim. linkten indirip kontrol edin lütfen. çalıştırmadan önce tüm çap klasörlerinin ebat listesi klasöründe bulunduğundan emin olun. yoksa hata alırsınız.

başka bilgi ihtiyacı olursa ulaşın lütfen. Aşağıdaki dosyadan indirebilirsiniz

Ebat_Listesi.rar dosyasını indir - download

Ebat_Listesi.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[ormann]

Sayın hmtstc ilginiz için çok teşekkür ederim. Kod güzel çalışıyor.Klasör olayını ben izah edemedim. Masa üstüne EBAT LİSTESİ adında klasör oluşacak .Bu klasörün içerisine C5 hücresinde istif numarası yazılı istifi EBAT LİSTESİ klasörünün içerisine İstif No=5 şelinde kayıt edecek. Tekrar klasör içerisine klasör açmayacak .

 

[hmtstc]

merhaba

düzelttim, bir de yazdırma ile ilgili talebiniz vardı onu da ekledim.

ancak satır sayısı değişti ise makrodan düzenlemeniz gerekir

 

[ormann]

Sayın hmtstc rica eklesem indirme linki eklermisiniz

 

[hmtstc]

Sayın hmtstc rica eklesem indirme linki eklermisiniz

buyrun

Ebat_Listesi.rar dosyasını indir - download

Ebat_Listesi.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc