Gün Al

[akhsahbaz]

Arkadaşlar,

C1 hücresine, eğer B1 hücresi dolu ise A1 hücresindeki tarihin gününü aldırmak istiyorum. Örneğin:
A1= 10 Ocak 2000 B1=(Hücre Dolu) C1=10
A1= 10 Ocak 2000 B1=(Hücre BO&#350 C1= (Hücre BO&#350

Ama belirtmek istiyorum bunu MAKRO ile yapamk istiyorum.

 

[mithrill74]

FormÜl İle Yapmek İstersen C1 E
=e&#286;er(b1<>"";metne&#199;ev&#304;r(a1;"gg");"")

 

[udentr2002]

hocam

c1 hücresine gelip aşağıdaki kodu yazınız

=EĞER(B1="";"";GÜN(A1))

 

[akhsahbaz]

&#304;lginiz i&#231;in te&#351;ekk&#252;r ederim ama bunu makro ile yapmak istiyorum

 

[hsayar]

Sub gunal()
If Range("b1") = "" Then
Range("c1") = ""
Else
Range("c1") = Day(Range("a1"))
End If
End Sub

 

[akhsahbaz]

Sn.hsayar te&#351;ekk&#252;r ederim ama kod hata veriyor.

 

[Merhum İdris SERDAR]

Sub Macro1()

If [b1] = "" Then [c1] = ""
If [b1] <> "" Then [c1] = Day([a1])


End Sub

deneyin.

 

[hsayar]

Sn.hsayar teşekkür ederim ama kod hata veriyor.

bende farkettim soınradan değiştirdim... elle yazım onları şimdikini denedim

 

[akhsahbaz]

Arkada&#351;lar yard&#305;m&#305;n&#305;z ve ilginiz i&#231;in te&#351;&#351;ekk&#252;r ederim. Yard&#305;m&#305;n&#305;z sayesinde hallettim.

 

[akhsahbaz]

Peki bu makroyu t&#252;m s&#252;tuna nas&#305;l uygular&#305;z?

 

[akhsahbaz]

Sub Macro1()

If [b1] = "" Then [c1] = ""
If [b1] <> "" Then [c1] = Day([a1])


End Sub

Arkadaşlar bu makroyu tamamen A,B ve C sütunlarına nasıl uyarlıyacağım. Lütfen yardım edermisiniz.:yardim:

 

[Orion1]

Ekli dosyayı inceleyiniz.
Aşağıdaki kodları çalışma sayfasının kod bölümüne yazdım.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
Application.EnableEvents = False
If Intersect(Target, [A:C]) Is Nothing Then Exit Sub
If Cells(Target.Row, "B").Value = "" Then Cells(Target.Row, "C").Value = ""
If Cells(Target.Row, "B").Value <> "" Then Cells(Target.Row, "C").Value = Day(Cells(Target.Row, "A").Value)
son:
Application.EnableEvents = True
End Sub

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[akhsahbaz]

Yard&#305;mlar&#305;n&#305;z i&#231;in hepinize ayr&#305; ayr&#305; te&#351;ekk&#252;r ederim. Sn.Orion2 ve COST_CONTROL hocalar&#305;m tam istedi&#287;im &#246;rnekti te&#351;ekk&#252;r ederim.Elleriniz dert g&#246;rmesin.