Acil bakabilirseniz sevinirim

[serenaytl]

Öncelikle Merhaba,
Elimde bulunan dosyanın ilk sayfasında kitap adı,fiyatlar ve tarihler bulunuyor. Bu listedeki değerleri 2. sayfaya kitap adı,fiyat ve tarih olmak üzere makroyla ayırmak istiyorum. Aslında kolay ancak döngü yapmayı bilmiyorum. Bundan dolayı nasıl yapabileceğimi bana gösterebilirseniz sevinirim. Şimdiden teşekkürler.

Drive dosyası şu şekilde : https://docs.google.com/spreadsheets/d/1QYtWKRYTiU4eI8LLvH4fsOHg3K8IgDQYP_Z6CrX9Vb0/edit?usp=sharing

 

[Cengiz Demir]

Sayfa 2 de, istediğiniz gibi düzenleme yapacak makroyu ayarladım.
Boş satırları ekletmedim. Ayrıca aynı kitabın aynı tarif ve fiyat verilerini Yinelenenleri kaldır ile
yan tarafta tek tarihe düşürdüm. Sanırım bu şekilde işinize daha çok yarar.

Kitap1

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[serenaytl]

Çok teşekkür ederim. Gerçekten bu bölümleri kendim düzenlerim diye düşünmüştüm ama gerek bile kalmadı. Sadece nasıl yaptığınızı makroya girip anlamaya çalıştım. Ancak döngü konusunda hiçbir fikrim yokmuş. sat ve sut değişkenlerini for ile bağlamanızı anladım ancak if formülünü nasıl bağladığınızı anlamadım. Eğer zamanınız olursa bana cevap verirseniz çok mutlu olurum.

 

[Cengiz Demir]

Rica ederim

Tarih değeri boş değilse ilgili hücrelere verileri yazıyor.
( If trh <> "" Then)

Else den sonra koşul gerçekleşmediği durumda gerçekleşecek kodları yazıyoruz.
Burada veriler ikişer satırlı arttığı için y (satır) değerini 1 artırıyoruz ki, sonraki okumada bir sonraki tarih bilgisinden başlasın.
Arttırma yapmazsak, fiyat bilgisinden okur ve veriler kayarak listeye işlenmeye başlar.
Aynı arttırmayı tarih dolu olduğunda da yapıyoruz.

       trh = Sheets(1).Cells(y + 1, i)
        fyt = Sheets(1).Cells(y + 2, i)
            
        If trh <> "" Then
            
                Cells(z + 1, 1) = Sheets(1).Cells(1, i)
                Cells(z + 1, 2) = trh
                Cells(z + 1, 3) = fyt
                y = y + 1
                z = z + 1
        
            Else
        
            y = y + 1
        
        End If

 

[Necdet]

Bu arada soru başlığınız konuyu özetleyecek şekilde değiştirin lütfen.
Hiç kimse "Acil bakabilirseniz sevinirim" diye arama yapmaz.
"