KBS ye veri aktarma

[Hakan ERDOST]

Ekteki dosyada izah etmeye çalıştım.Çizelgemi ödeme tiplerine göre KBS ye aktarmak istiyorum.
Özellikle makro üstadlarından yardım bilhassa yardım rica ediyorum.

 

[Hakan ERDOST]

Üstadlar bir el atarsanız çok makbule geçer. Mümkün değil dersenizde en azından teselli buluruz.Velhasıl-ı kelam bir teselli veriniz.

 

[Hakan ERDOST]

Makro ile çözm olmuyorsa formül için bulduğum (kendimce) çözümü aşağıya doğru nasıl çoğaltabiliriz.

Sanki kendi kendime konuşuyormuşum gibi...

 

[Hakan ERDOST]

Konu güncel. Çözüm için görüş yada öneri lütfen.

 

[lazr55]

MACRO ile dağıtım

KBS ye aktar butonu ile dağıtımı aktarabirlirsiniz.

 

[lazr55]

MACRO ile dağıtım

DOSYA ekte

 

[Hakan ERDOST]

Öncelikle teşekkürler.Bu da benim için çok önemli ancak bir kaç noktada daha yardımcı olabilirseniz çok iyi olur.
1.Referans aldığı TC Kimliğin sağındaki 7. sütunda veri tipi değeri boş ise o satırı aktarmasın,
2.Referans aldığı TC Kimliğin sağındaki 7.sütunda aynı TC kimliğe ait aynı veri tipi iki satırda var ise bunlaru toplayarak aktarsın.
Mümkün değilse de sağlık olsun.Tekrar çok teşekkür ederim.

 

[lazr55]

kbs

Ödeme tipi sıfırsa aktarmıyor.

 

[Hakan ERDOST]

aynı ödeme tiplerini toplatmak mümkün değil mi?

Bir diğer konu veri tipi olsa dahi satırın tamamı sıfır ise aktarmasın.

 

[Hakan ERDOST]

Option Explicit
 
Sub DERS_DAĞILIMINI_AKTAR_2()
    Dim X1 As Integer, X2 As Integer, X3 As Integer
    Dim GÜN As String, BUL As Range
    
    Application.ScreenUpdating = False
    
       
    For X1 = 2 To Sayfa5.Cells(Rows.Count, "c").End(3).Row
    If Sayfa5.Cells(X1, 10) <> 0 Then Sayfa6.Cells(X1, 1) = Sayfa5.Cells(X1, 3) Else GoTo 100:
    Sayfa6.Cells(X1, 2) = Sayfa5.Cells(X1, 10)
    
    
            For X3 = 18 To 50
                        
                        Sayfa6.Cells(X1, X3 - 15) = Sayfa5.Cells(X1, X3)
                  
            Next
100:
        Next
        
Sayfa6.[a:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Application.ScreenUpdating = True
 
    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

Bu kodda nasıl bir değişiklikle yapalım ki Sayfa5 deki gizli satırları aktarmasın.

 

[Hakan ERDOST]

aynı ödeme tiplerini toplatmak mümkün değil mi?

Bir diğer konu veri tipi olsa dahi satırın tamamı sıfır ise aktarmasın.

Aynı TC kimliğe ait aynı ödeme tiplerni toplatmamız mümkün mü?
Konu güncel.

 

[Hakan ERDOST]

Konu güncel. Üstadlar bir bakarsanız, mümkün değilse başka bir çözüm için çalışayım.

 

[Hakan ERDOST]

Son kez konu güncel.