Bir Hücredeki veriyi bir sütuna yayma makrosu

[misnet]

Ekteki örnekte ; Bir Hücredeki veriyi bir sütuna yayacak bir makro yapmak istiyorum. Yardımcı olacak arkadaşlara teşekkürlerimi sunar, iyi çalışmalar dilerim.

 

[asi_kral]

Ekteki örnekte ; Bir Hücredeki veriyi bir sütuna yayacak bir makro yapmak istiyorum. Yardımcı olacak arkadaşlara teşekkürlerimi sunar, iyi çalışmalar dilerim.

Merhaba
W3 hücresine

=TARİH(YIL($B$1);AY($H3);GÜN($H3))

S3 hücresine

=EĞER($W3=$B$1;30;0)

Bu formülleri yazın ve aşağıya doğru çekerek çoğaltın
Dosyanız ekte.

 

[misnet]

Sayın asi Kral bu formulü kod şeklinde istemiştim mümkünmü acaba

 

[asi_kral]

Sayın asi Kral bu formulü kod şeklinde istemiştim mümkünmü acaba

Otomatik mi olacaksa formül olması daha mantıklı Makroyu bir şekilde tetikletmemiz gerek. Formülde böyle bir şart mevcut değil.

 

[misnet]

Sayın asi Kral bu işlemi makro ile yapabilirmiyiz.

 

[misnet]

yada makro ile yapıp bir tuşa bağlayabiliriz. bir tuşa bağlayacak şekilde makro yazabilirmisiniz zahmet olmazsa

 

[asi_kral]

yada makro ile yapıp bir tuşa bağlayabiliriz. bir tuşa bağlayacak şekilde makro yazabilirmisiniz zahmet olmazsa

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub tarihleri_düzenle_1967()
'Konu       :   İzinleri Belirle
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Long
For asi = 3 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(asi, "W") = DateSerial(Year(Range("B1")), Month(Cells( _
asi, "H")), Day(Cells(asi, "H")))
If Cells(asi, "W").Value = Range("B1") Then
Cells(asi, "S") = 30
Else
Cells(asi, "S") = 0
End If: Next
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[misnet]

Sayın Asi kral ilginize teşekkürler.
işim halloldu.

 

[asi_kral]

Sayın Asi kral ilginize teşekkürler.
işim halloldu.

Kolay Gelsin.