Çözüldü Çok koşullu veri birleştirme

Alicimri' Alıntı:

Yedek alıp, deneyin.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

Alicimri' Alıntı:

Kopyalayın, istediğiniz modüldeki mevcut makrodan sonraki boşluğa yapıştırın. Bu makro için bir düğme oluşturup, makroyu bu düğmeye atayın.

Genişletmek için tıkla...

Alicimri' Alıntı:

Sn lion2577 apayrı işlemleri nasıl tek işlem haline getirilecek anlamadım.

Genişletmek için tıkla...

lion2577' Alıntı:

İlginiz için teşekkür ederiz. Bunu dosyaya (Modül 1) nasıl uyarlarız acaba. Ayrı bir modül olmasın yani.

Genişletmek için tıkla...

Alicimri' Alıntı:

Sorunuzda işlemin sanki Liste sayfasında yapılmasını istiyorsunuz gibi.....
Modül1'deki kodlarda değişiklik yapılıp, yeni oluşacak sayfalarda bu birleştirmenin yapılacağını belirtmemişsiniz.
Neyse ekteki dosyayı deneyin.

Genişletmek için tıkla...

lion2577' Alıntı:

Hocalarım merhaba; aşağıdaki örnek dosyada aşağıdaki koşulu en altta belirtilen kodu değiştirerek nasıl nasıl sağlayabiliriz. Şimdiden çok teşekkür ederiz.



1- Eğer liste sayfasında J sütununda veri varsa/doluysa işlemi yaparken H ve J sütunları birleştirilsin H sütununa yazılsın. Birleştirme esnasında J sütunu parantez içinde yazılacak.

2- J sütunu boşsa ve K sütununda kapalı yazıyorsa işlemi yaparken H ve K sütunları birleştirsin H sütununa yazılsın. Birleştirme esnasında K sütunu parantez içinde yazılacak.

3- İki seçenekte yoksa herhangi bir işlem yapmasın H deki veri direk aktarılsın.

Kod:

If rngVeri.Cells(i, 10).Value <> "" Then
wsYeni.Cells(satirSayisi + 1, 8).Value = rngVeri.Cells(i, 8).Value & " " & "(" & rngVeri.Cells(i, 10).Value & ")"
Else
wsYeni.Cells(satirSayisi + 1, 8).Value = rngVeri.Cells(i, 8).Value
End If

Genişletmek için tıkla...