Acil bakabilirseniz sevinirim

Katılım
6 Ocak 2022
Mesajlar
2
Excel Vers. ve Dili
Excel 2007

Cengiz Demir

Altın Üye
Katılım
29 Haziran 2018
Mesajlar
583
Excel Vers. ve Dili
Office 365 TR (32 Bit)
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.

 
Katılım
6 Ocak 2022
Mesajlar
2
Excel Vers. ve Dili
Excel 2007
Ç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

Altın Üye
Katılım
29 Haziran 2018
Mesajlar
583
Excel Vers. ve Dili
Office 365 TR (32 Bit)
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.

C#:
       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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,182
Excel Vers. ve Dili
Ofis 365 Türkçe
Bu arada soru başlığınız konuyu özetleyecek şekilde değiştirin lütfen.
Hiç kimse "Acil bakabilirseniz sevinirim" diye arama yapmaz.
"
 
Üst