Sayfa1' deki verilere göre Sayfa2' yi Düzenlemek

[TaRan7uLa]

Merhaba Üstadlar, Arkadaşlar,

Konu başlığını pek açıklayıcı olarak yazamasam da
Biraz açıklamaya çalışacağım: 1.sayfamızda yer alan bilgilere göre 2. sayfamıza veri aktarımı yaparak oluşturulan satırların Sayfa1' deki bir değere göre altalta kopyalanmasıyla ilgili bir çalışma.

Örnek dosyayı ekledim. Detaylı açıklama dosya içerisinde mevcut.

Yardımlarınızı bekliyorum...

Şimdiden vakit ayıran herkese teşekkürler. Saygılarımla...

 

[TaRan7uLa]

Cvp verebilecek yok mu?

 

[TaRan7uLa]

Çok Zor Oldu Sanırım

 

[TaRan7uLa]

Mesajım görünmüyor mu neden kimse cvp vermiyor? :S

 

[Orion1]

Sayfa1 de F sütununu parçalayıp Sayfa3 te I-J-K sütunlarına atmışsın.
Burada sıkıntı var.Bu aşılırsa yapılır.Bu parçalamayı neye göre yapıyon.Vereceğnğiniz kıstaslar her zaman için geçerli olması gerekiyor.Veya sayfa1 de bunları yazarkende o şekilde parçalayıpta yazın.

 

[Orion1]

Dosyanız ektedir.

Function arasi(deg As Range) As Integer
Dim i As Integer, str As String
For i = 1 To Len(deg)
    str = Mid(deg, i, 1)
    If Not IsNumeric(str) And str <> "." And str <> "," Then
        arasi = i
        Exit For
    End If
Next
End Function
Sub aktar()
Dim i As Long, sat1 As Long, j As Long, sh As Worksheet, sat As Long
Dim aratpl As Double, total As Double
Sheets("Sayfa2").Select
Application.ScreenUpdating = False
Range("B6:E65536,I6:M65536").Clear
Set sh = Sheets("Sayfa1")
sat1 = sh.Cells(65536, "B").End(xlUp).Row
sat = 6
For i = 2 To sat1
    For j = sat To sat + sh.Cells(i, "I").Value - 1
        Cells(j, "B").Value = sh.Cells(i, "B").Value
        Cells(j, "B").Font.Bold = True
        Cells(j, "C").Value = sh.Cells(i, "C").Value
        Cells(j, "C").Font.Bold = True
        Cells(j, "D").Value = sh.Cells(i, "D").Value
        Cells(j, "E").Value = sh.Cells(i, "E").Value
        Cells(j, "I").Value = Left(sh.Range("F" & i), arasi(sh.Range("F" & i)) - 1) * 1
        Cells(j, "J").Value = Mid(sh.Range("F" & i), arasi(sh.Range("F" & i)), 1)
        Cells(j, "K").Value = Right(sh.Range("F" & i), Len(sh.Range("F" & i)) - arasi(sh.Range("F" & i))) * 1
        Cells(j, "L").Value = sh.Cells(i, "N").Value
        Cells(j, "L").Font.Bold = True
        Cells(j, "M").Value = sh.Cells(i, "K").Value
        aratpl = aratpl + sh.Cells(i, "K").Value
        total = total + sh.Cells(i, "K").Value
    Next
    sat = j
    Cells(sat, "M").Value = aratpl
    Cells(sat, "M").Font.Bold = True
    aratpl = 0
    sat = sat + 1
Next i
Cells(sat + 1, "M").Value = total
Cells(sat + 1, "M").Font.Bold = True
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
    
        
End Sub

 

[TaRan7uLa]

Evren Bey çok sağolun. Nasıl teşekkür edeceğimi bilemiyorum. Kesit kısmına bir sütun daha eklemem gerekiyordu. Ekleyip makroyu düzenledim. Kesit kısmı istediğim gibi olmuş. Yalnızca Sayfa1'de kesit kısmında 2 format kullandığımız için 1x2x0,75 şeklinde de olabiliyor. Ama şuan için bu önemli değil. Daha sonra onun üzerinde çalışabiliriz. Öncelik olarak sizden rica edeceğim; Alttoplam ve formül şeklinde hücreye girilmesini sağlayacağımız yerleri yapabilmemiz. Sayfa2 üzerinde değişiklik olacağı için makroda yaptığımız total işleminin bir yararı olmuyor. Sayfa 3teki gibi diğer formülleri(Net Ağırlık, Brüt Ağırlık) de aynı şekilde hücreye formül olarak atamamız gerekiyor. Dosyada da açıkladım.

 

[Orion1]

Evren Bey çok sağolun. Nasıl teşekkür edeceğimi bilemiyorum. Kesit kısmına bir sütun daha eklemem gerekiyordu. Ekleyip makroyu düzenledim. Kesit kısmı istediğim gibi olmuş. Yalnızca Sayfa1'de kesit kısmında 2 format kullandığımız için 1x2x0,75 şeklinde de olabiliyor. Ama şuan için bu önemli değil. Daha sonra onun üzerinde çalışabiliriz. Öncelik olarak sizden rica edeceğim; Alttoplam ve formül şeklinde hücreye girilmesini sağlayacağımız yerleri yapabilmemiz. Sayfa2 üzerinde değişiklik olacağı için makroda yaptığımız total işleminin bir yararı olmuyor. Sayfa 3teki gibi diğer formülleri(Net Ağırlık, Brüt Ağırlık) de aynı şekilde hücreye formül olarak atamamız gerekiyor. Dosyada da açıkladım.

Toplamlarda bir sorun çıkmaması lazım
zaten formülün işini yapıyor.
Toplamların bulunduğu satır her yeni duruma göre zaten değişecektir.

 

[TaRan7uLa]

Evren Bey şöyle ki;

Benim ilk hazırladığım sayfa Sayfa1. Sayfa1'i hazırladıktan sonra makroyu Sayfa2'yi taslak olarak hazırlamak için kullanacağım. Zaten Sayfa1'i hazırlama amacımız, Sayfa2'yi daha kolay hazırlamak. Yani makroyu bir kere çalıştıracağım, Sayfa2'yi hazırlayacak, makroyla işim bitecek. O kadar. Tekrar tekrar makro çalıştırırsak hata olur. Daha sonrasını yine biz üretimden çıkan miktarlara, hangi makara kullanıldığına, hangi paletlemeler yapıldıysa ona göre listeye bu bilgileri girerek işlemimizi tamamlıyoruz. Fazla miktar çıktığında ek satır açıp bilgiler girebiliyoruz. Sayfa3'teki gibi Sarı ve Mavi dolgu renkli hücrelerin hazırlanması gerekiyor.