İki kodu birleştirme ve tanımlı alanlardan mükerrer kayıt

[M.ACAR]

İyi geceler
Ekli dosya'da gerekli açıklamayı yapmaya çalıştım,tanımlı alanlarda bulunan verileri her birinden bir tane olacak şekilde sıralamam lazım ve iki kodu tek bir buton ile bordro sayfasından çalıştırmam gerekiyor,yardımcı olurmusunuz.

 

[Ergün Güler]

İyi geceler
Ekli dosya'da gerekli açıklamayı yapmaya çalıştım,tanımlı alanlarda bulunan verileri her birinden bir tane olacak şekilde sıralamam lazım ve iki kodu tek bir buton ile bordro sayfasından çalıştırmam gerekiyor,yardımcı olurmusunuz.

Selam,
Sorunuzu tam anlayamadım.
GENEL sayfasının E3:E33, I3:I33, M3:M33 ..... diye giden aralıklarda geçen firma isimlerini BENZERSİZ bir şekilde, Bordro sayfasının A37'den başlayarak aşağıya doğru sıralanmasını mı istiyorsunuz?

 

[M.ACAR]

GENEL sayfasının A37 hücresinden başlayıp aşağıya doğru gidecek fakat A 36'ya GENEL Yazıcak
fakat buton BORDRO sayfasında olacak

 

[Ergün Güler]

GENEL sayfasının A37 hücresinden başlayıp aşağıya doğru gidecek fakat A 36'ya GENEL Yazıcak
fakat buton BORDRO sayfasında olacak

Selam,
BORDRO sayfasındaki Sarı Butona aşağıdaki kodları atayınız
GENEL sayfasındaki firmalar, yine GENEL sayfasının A37'sinden itibaren benzersiz sıralanır.

Sub benzersiz_sirala()
Dim bd As Worksheet
Dim gn As Worksheet

Set gn = ThisWorkbook.Sheets("GENEL")
Set bd = ThisWorkbook.Sheets("BORDRO")

gn_son_sut = gn.Range("IV3").End(1).Column

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    bd.Range("IU:IV").ClearContents
    gn.Range("A36:A65536").ClearContents
    
    bd.Range("IU1") = "GENEL"
    sat = 2
        For sut = 5 To gn_son_sut Step 4
        bd.Range("IU" & sat & ":IU" & sat + 30) = _
        gn.Range(gn.Cells(3, sut), gn.Cells(33, sut)).Value
        sat = sat + 31
        Next
    
    IU_sat = bd.Range("IU65536").End(3).Row
    
    bd.Range("IU1:IU" & IU_sat).AdvancedFilter _
    Action:=xlFilterCopy, CopyToRange:=bd.Range("IV1"), Unique:=True
    
    IV_son = bd.Range("IV65536").End(3).Row
    
    gn.Range("A36:A" & 36 + IV_son - 1) = _
    bd.Range(bd.Cells(1, "IV"), bd.Cells(IV_son, "IV")).Value
    
    bd.Range("IU:IV").ClearContents
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

 

[M.ACAR]

İki kodun birleştirilmesi konusunda yardımcı olabilirmisiniz

 

[M.ACAR]

Sayın : Ergün GÜLER Firma listesi içinde boş olan hücre varsa kayıt esnasında bunuda boş olarak geçiyor,Listelemede boşluğu göstermese kod üzerinde nasıl bir düzenleme yapmam lazım

 

[Ergün Güler]

İki kodun birleştirilmesi konusunda yardımcı olabilirmisiniz

Sarı Butona basınca 2 ayrı kodun çalışmasını m istiyorsunuz?
Öyleyse;

bir module

Sub kodlari_calistir()

Call [COLOR="Red"]buraya 1.kodlarınınz başlığını yazınız[/COLOR]
Call benzersiz_sirala

End Sub

sonra Sarı Butona Sub kodlari_calistir() makrosunu atayınız.

 

[Ergün Güler]

Sayın : Ergün GÜLER Firma listesi içinde boş olan hücre varsa kayıt esnasında bunuda boş olarak geçiyor,Listelemede boşluğu göstermese kod üzerinde nasıl bir düzenleme yapmam lazım

Selam,
Bunu müsait olunca yapacağım. Ayrıca, GENEL sayfasındaki fonksiyonlar ile yaptığınız işlemleri kodlar ile yapmak isterseniz, bunların için de ayrı bir çalışma yapabiliriz.
İyi çalışmalar.

 

[M.ACAR]

Ergün bey ,Çok teşekkür ederim.