Süz ve aktar

[CILEKESH]

Merhaba,

Giderler Sekmesindeki verileri aylara göre ("G" sütunu) süzerek "GİDERYAZ" sekmesine aktarmak istiyorum.

Form üzerindeki hazırladığım "Giderleri Aktar" butona kodlar yazılacak. Hangi ayın süzüleceği bilgisini (HesapÖzeti!F5) hücresinden alacak.

Teşekkür Ederim.

 

[ismailcakir]

merhaba arkadaşlar
ofis 2007 kullanıyorum.Excellimde cep telefonu numaraları mevcut,fakat aynı numaralar mevcut onları nasıl formulle silebilirim.Her numaradan bir tane olmasını istiyorum.

 

[Vedat Özer]

Selamlar,

Sayın,İsmailcakir,

Aşagıdaki konuyu incelemenizi tavsiye ederim,


Mükerrer Konu

 

[CILEKESH]

merhaba arkadaşlar
ofis 2007 kullanıyorum.Excellimde cep telefonu numaraları mevcut,fakat aynı numaralar mevcut onları nasıl formulle silebilirim.Her numaradan bir tane olmasını istiyorum.

Arkadaşlar konuma yine hariçten katılım oldu.
Benim soruma Cevap bulunamadı henüz.

 

[Necdet]

Merhaba,

Giderler Sekmesindeki verileri aylara göre ("G" sütunu) süzerek "GİDERYAZ" sekmesine aktarmak istiyorum.

Form üzerindeki hazırladığım "Giderleri Aktar" butona kodlar yazılacak. Hangi ayın süzüleceği bilgisini (HesapÖzeti!F5) hücresinden alacak.

Teşekkür Ederim.

Merhaba,

Aşağıdaki kodu deneyiniz.

Bir başka programdan çağırabilirsiniz.

Suz_Ve_Aktar aykodu

şeklinde.

Sub Suz_Ve_Aktar(Ay As Integer)
    
    Dim i As Long
    Dim j As Long
    Dim sg As Worksheet
    Dim sy As Worksheet
    
    Set sg = Sheets("Giderler")
    Set sy = Sheets("GİDERYAZ")
        
    Application.ScreenUpdating = False
    
    sg.Select
    If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    j = sy.Cells(Rows.Count, "A").End(3).Row + 1
    
    
    sg.Range("$A$2:$G$" & i).AutoFilter Field:=7, Criteria1:=Ay
    sg.Range("A1").CurrentRegion.Copy sy.Cells(j, "A")
    sy.Cells.EntireColumn.AutoFit
    sy.Range("G:G").Delete
    
    If j = 2 Then
        sy.Rows("1:2").Delete
    Else
        sy.Rows(j & ":" & j + 1).Delete
    End If
    
    Selection.AutoFilter
    Application.ScreenUpdating = True
    
End Sub

 

[CILEKESH]

Merhaba,

Aşağıdaki kodu deneyiniz.

Bir başka programdan çağırabilirsiniz.

Suz_Ve_Aktar aykodu

şeklinde.

Sub Suz_Ve_Aktar(Ay As Integer)
    
    Dim i As Long
    Dim j As Long
    Dim sg As Worksheet
    Dim sy As Worksheet
    
    Set sg = Sheets("Giderler")
    Set sy = Sheets("GİDERYAZ")
        
    Application.ScreenUpdating = False
    
    sg.Select
    If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    j = sy.Cells(Rows.Count, "A").End(3).Row + 1
    
    
    sg.Range("$A$2:$G$" & i).AutoFilter Field:=7, Criteria1:=Ay
    sg.Range("A1").CurrentRegion.Copy sy.Cells(j, "A")
    sy.Cells.EntireColumn.AutoFit
    sy.Range("G:G").Delete
    
    If j = 2 Then
        sy.Rows("1:2").Delete
    Else
        sy.Rows(j & ":" & j + 1).Delete
    End If
    
    Selection.AutoFilter
    Application.ScreenUpdating = True
    
End Sub

Teşekkür Ederim Bir çok şekilde kullanabileceğim sayenizde.

 

[Necdet]

Rica ederim, güle güle kullanınız.

 

[assenucler]

Tebrikler ve bir rica.

Sayın CILEKESH;

İyi akşamlar. Yukarıdaki programınızı çok beğendim.

Eğer izniniz olursa, bu programınızı kendi apartmanımda da kullanabilir miyim?

Programınızın kullanımında işlem akış sırasına göre neler yapmam gerektiği konusunda, özet bilgi verebilir misiniz?

Emeğiniz için size ve katkı veren herkese teşekkürler.

Sevgi ve saygılar.

 

[CILEKESH]

Sayın CILEKESH;

İyi akşamlar. Yukarıdaki programınızı çok beğendim.

Eğer izniniz olursa, bu programınızı kendi apartmanımda da kullanabilir miyim?

Programınızın kullanımında işlem akış sırasına göre neler yapmam gerektiği konusunda, özet bilgi verebilir misiniz?

Emeğiniz için size ve katkı veren herkese teşekkürler.

Sevgi ve saygılar.

Sayın assenucler buraya eklediğim programın hemen hemen bütün özellikleri silinmiş durumda. Programı geliştirmeye devam ediyorum. Tamamlanınca sizinle paylaşabilirim.