VBA ile Tarihe uyan verileri aktarma.

[cemilk]

Arkadaşlar kolay gelsin. Ekteki dosyada bulunan data sayfasındaki verileri userformdaki takvimden seçtiğim tarihe göre aktar butonuna basıldığı zaman önce Gün sayfasının içinde veri varsa silsin sonra yeni verileri oraya başlıklarının altına yazsın istiyorum.

Mümkünü varsa yardımcı olurmusunuz.


Teşekkür ederim.

 

[cemilk]

Sayın hocalarım bu konuda yardımcı olacak kimse yok mu ??

 

[cemilk]

Arkadaşlar yardımcı olabilecek kimse yokmu...

 

[Ömer]

Merhaba,

Eki inceleyiniz..

.

 

[cemilk]

Çok sağol üstat teşekkür ederim ellerin dert görmesin.

 

[cemilk]

merhaba

hocalarım tekrar selamlar Ömer hocamdan allah razı olsun sorunumu halletti ama küçük bir sorunum daha çıktı içinden çıkamadım Ekteki Dosyada Ömer hocamın yapığı aktarma var ama ben biraz şekli değiştdim ve bir koşul daha eklemem gerekti 2 ayrı sayfa yerine tek tasyfada birleştirmek istedim. Ömer hocam sağolsun güne göre diğer excel sayfasına taşıdı fakat tahsilat ve tediye olarak ayrı yerlere nasıl taşıyabilirim. Data sayfasındaki verileri Gün sayfasında tahsilat olanı tahsilat kısmına tediye olanı tediye kısmına yazsın istiyorum mümkünmüdür.

Teşekkür ederim.

 

[Ömer]

Dosyada tediye ile ilgili bir tablo göremedim. İki veriden de ayrı ayrı tahsil ve tediye tablolarına belli bir tarihe göre olması gereken değerleri manuel girerek tekrar bir tablo eklermisiniz.

 

[cemilk]

hocam data sayfasında tarihe baktıktan sonra yanındaki sütunda bulunan tediye ve tahsilat kısmını bölecek gün sayfasında tediye ve tahsilat olan kısımların altına yazacak. Ekte ayrıntı belirttim. Gecenizi böldüğüm için kusura bakmayın uyku tutmuyor zamanım az kaldı bitirmem gerekiyor bu formu.

tekrar tekrar teşekkür ederim ilginize.

 

[Ömer]

hocam data sayfasında tarihe baktıktan sonra yanındaki sütunda bulunan tediye ve tahsilat kısmını bölecek gün sayfasında tediye ve tahsilat olan kısımların altına yazacak. Ekte ayrıntı belirttim. Gecenizi böldüğüm için kusura bakmayın uyku tutmuyor zamanım az kaldı bitirmem gerekiyor bu formu.

tekrar tekrar teşekkür ederim ilginize.

Merhaba,

Eki inceleyiniz..

.

 

[cemilk]

Hocam ellerin dert görmesin

İstediğim den de ala oldu bu allah senden razı olsun.

Senin de isteklerin varsa hal olur inşallah.

Hayırlı geceler.

 

[Ömer]

Teşekkür ederim.

Sizede iyi geceler..

 

[derdalan58]

hocam soru.xls dosyasında süzdürmek için 2 kolon daha ekleyebiliyormuyuz?

 

[Ömer]

Merhaba,

Eklenebilir. Örnek bir dosya hazırlayarak açıklayınız.

.

 

[derdalan58]

saygılar

hocam dosyayı ekledim.ilgilenirseniz çok memnun olurum

 

[Ömer]

Merhaba,

CommandButton1 in kodlarını aşağıdaki gibi değiştirin.

Private Sub CommandButton1_Click()
Dim S1, S2 As Worksheet
Dim c As Range
Dim sat, son As Long
Dim ilkadres As Variant
 
Set S1 = Sheets("DATA")
Set S2 = Sheets("GÜN")
 
Application.ScreenUpdating = False
 
S2.Range("J2").Value = CDate(TextBox1.Text)
S2.Range("E10:K65536").ClearContents
 
sat = 9
son = S1.[B65536].End(3).Row
    Set c = S1.Range("B4:B" & son).Find(S2.Range("J2"), LookIn:=xlValues)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            sat = sat + 1
 
            S1.Range("A" & c.Row & ":G" & c.Row).Copy S2.Range("E" & sat)
 
            Set c = S1.Range("B4:B" & son).FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
 
Application.ScreenUpdating = True
End Sub

 

[derdalan58]

teşekkürler

hocam vakit ayırdığınız için çok teşekkür ederim.istediğim tam olarak buydu.allah razı olsun sizden