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

[lion2577]

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

 

[Alicimri]

Yedek alıp, deneyin.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[lion2577]

Yedek alıp, deneyin.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

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

 

[Alicimri]

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.

 

[lion2577]

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.

Hocam çok özürdileyerek sizden ricamız örnek dosyadaki mevcut koda uygulayabilirmisiniz lütfen. Üçüncü bir düğme eklemeden. Eğer zahmet olmazsa.

 

[Alicimri]

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

 

[lion2577]

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

Hocam yukarıda paylaştığımız örnek dosyadaki modül 1 in içerisinde yine yukarıda paylaştığımız kod var. Biz bu kodu düzenlemek istiyoruz. Siz değerli Hocalardan bu konuda yardım talep ediyoruz.

 

[lion2577]

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

İlginiz için çok teşekkür ederiz. Allah razı olsun inşallah. Hakkınızı helal ediniz. İyiki varsınız.

 

[Alicimri]

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.

 

[lion2577]

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.

Alicimri Hocam büyük küçük harf farketmeksizin ölü yazarsa birleştirme yapsın sizinkinde açık larıda birleştiriyor. Teşekkürler

 

[lion2577]

Halledildi. teşekkürler

 

[SNNAY]

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

Deneyiniz