Veri aktar

[nadirornek]

I2 hücresine tarih girilince o tarih B sutununda var ise o tarihleri ve
o tarihe karşılık gelen C sütunundaki verileri Sayfa2 de D sutununa aktarsın.

Örnek 22.05.2010
Bu şekilde Sayfa2 nin D sutununa aktarsın
22.05.2010 AA1234567893
22.05.2010 AA1234567894
22.05.2010 AA1234567895
22.05.2010 AA1234567896
22.05.2010 AA1234567897
22.05.2010 AA1234567898
22.05.2010 AA1234567899
22.05.2010 AA1234567900
22.05.2010 AA1234567901
22.05.2010 AA1234567902
22.05.2010 AA1234567903

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I2]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("D1:E2").Clear
Range("B1").AutoFilter
Range("B1").AutoFilter field:=1, Criteria1:=CDate(Target.Value)
Range("B1").CurrentRegion.Copy Sheets("Sayfa2").Range("D1")
Range("B1").AutoFilter
Sheets("Sayfa2").Select
Application.ScreenUpdating = True
End Sub

 

[nadirornek]

Elinize sağlık yine hızır gibi yetiştin teşekkürler

 

[Orion1]

Elinize sağlık yine hızır gibi yetiştin teşekkürler

Rica ederim.
İyi çalışmalar.

 

[sonkurt]

Merhaba

kodlarınızın
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I2]) Is Nothing Then Exit Sub

kısmını bende kullanmak istedim. Ancak benim değişen hücrem formülle değişiyor.(Örneğimizde "I2" hücresi). Kendim giriş yapmıyorum. Bu durumda "Worksheet_Change"
çalışmıyor. bu sorunla ilgili ne yapabilirim.

 

[Orion1]

Merhaba

kodlarınızın
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I2]) Is Nothing Then Exit Sub

kısmını bende kullanmak istedim. Ancak benim değişen hücrem formülle değişiyor.(Örneğimizde "I2" hücresi). Kendim giriş yapmıyorum. Bu durumda "Worksheet_Change"
çalışmıyor. bu sorunla ilgili ne yapabilirim.

Formül olan hücre hangi hücrelerle bağlantılı ise o hücreleri yazın.Onlar tetiklesin.

 

[sonkurt]

Teşekkür ederim. Maalesef orada da formül var.
A1 hücresinde =BUGÜN()
B1 hücresinde =A1-HAFTANINGÜNÜ(A1;1)+2
formülleri var. Şimdilik Worksheet_SelectionChange kullanıyorum. Mause ile tıklayınca çalışıyor.
Yetiyor aslında.