hücredeki tarih hangi güne denk geliyor?

[bistrobellman]

A1 hücresinde örneğin tarih var : 21/05/2005

Makro ile A1 deki tarihin Pazartesi ye Salıya mı veya hangi güne denk geldiğini msgbox ile nasıl gösteririz?

 

[danersin]

Pazartesi'yi 1. gün sayacak şekilde haftanın kaçıncı günü olduğunu verir. Bunu bir hücreye yazdığınızda hücre biçimini gggg şeklinde ayarlarsanız günü yazı ile verir.

[vb:1:dbaedbc936]Sub Makro1()
MsgBox Application.WorksheetFunction.Weekday([a1], 2)
End Sub[/vb:1:dbaedbc936]

 

[bistrobellman]

UserForm1 Üzerinde TextBox1 ' e el ile tarih girsek peki aşağıdaki mesajda neden hata veriyor ??


MsgBox WorksheetFunction.Weekday(UserForm1.TextBox1, 2)

 

[danersin]

Sorunuzu eksik okumuşum, makroda yazı ile belirlemek için aşağıdakini deneyin.
Choose 'dan sonra haftanın günlerini aynı şekilde devam edin.

[vb:1:79be31680f]
Sub Makro1()
a = Application.WorksheetFunction.Weekday([a1], 3)
b = Application.WorksheetFunction.Choose(a, "Pazartesi", "Salı", "Çarşamba")
MsgBox b
End Sub[/vb:1:79be31680f]

 

[danersin]

Msgbox Application.WorksheetFunction.Weekday(CDate(TextBox1.Value), 3)

şeklinde deneyin.

 

[isakarakus]

merhaba,

belki bu da lazım olur, WeekdayName

MsgBox WeekdayName(Weekday(Date), False, vbSunday)

 

[bistrobellman]

ben textBox1 üzerindeki tarihten bahsetmiştim. [a1] olması gerek değil sanırım yeni kodda...nasıl değiştireceğz? UserForm üzerindeki textBox1 kontrol noktası olacak? girilen tarihin gün adını verecek o kadar...

 

[danersin]

belki lazım olur mu?

Kesinlikle daha doğru bir yol.

 

[isakarakus]

belki lazım olur mu?

Kesinlikle daha doğru bir yol.

ben textBox1 üzerindeki tarihten bahsetmiştim. [a1] olması gerek değil sanırım yeni kodda...nasıl değiştireceğz? UserForm üzerindeki textBox1 kontrol noktası olacak? girilen tarihin gün adını verecek o kadar...

on error resume next
MsgBox WeekdayName(Weekday(tetxbox1.text), False, vbSunday)