Ay değişkenine Göre Aktarma

[Yesilyurtlu]

Hayırlı Akşamlar diliyorum.

Ekte bana lazım olan bir dosyanın kısa bir şeklini aktarmaya çalıştım. Sorunumu ve isteğimide dosyada belirtmeye çalıştım.Yardımcı olabilir misiniz

 

[Ömer]

Merhaba,

C3 hücresine yazarak yan ve alt hücrelere kopyalayınız..

=EĞER(C$2=Sayfa1!$A$1;Sayfa1!$C5;"")

.

 

[Yesilyurtlu]

espiyonajl Uzmanım
Formül tamam ama ilki siliniyor. MART ayını seçiyorum MATRAH kısmına geliyor

Ama Nisan ayını seçince MART siliniyor

 

[Serdar SELEN]

Dosya ek te

 

[Yesilyurtlu]

Royalman USTAM
siz MATRAH tan Sayfa 1 e aldırmışsınız
Ben Sayfa 1 den MATRAH a aldırmak istiyorum tam tersi yalnız ay değiştiğinde aktarılan matrah MATRAH sayfasında kalacak

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne koplayayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Dim Kolon As Integer
Dim Sat As Long, Satır As Long
Dim Bulunan As Range
Dim sm As Worksheet, ss As Worksheet
Set sm = Sheets("MATRAH")
Set Bulunan = sm.Range("A2:L2").Find([A1], LookIn:=xlValues)
If Not Bulunan Is Nothing Then Kolon = Bulunan.Column
Sat = sm.Cells(65536, Kolon).End(3).Row + 1
Range("C5:C" & [C65536].End(3).Row).Copy sm.Cells(Sat, Kolon)
Son:
End Sub

 

[Yesilyurtlu]

Necdet UZMANIM işlem tamam

Teşekkür ederim

 

[Necdet]

Güle güle kullanınız. İyi akşamlar.

 

[Serdar SELEN]

soruyu tersten okumusum

 

[Necdet]

soruyu tersten okumusum

Sayın Royalman çok güldürdünüz beni, allahta sizi güldürsün. Bazen böyle oluyor malesef.

 

[Serdar SELEN]

Amin hocam amin allah hepimizi güldürsün