açılan kutu ve mesaj kutusu

[arimuz]

hocam 2 sorum var,
1. 1.Açılır kutuda monitörü seçince, 2.açılan kutuda m3:m7 arası değerlerin çıkmasını onlarda seçilince ilgili sayfaya gitmesini istiyorum. Nasıl yapabilirim?
2. Çok aramama rağmen MSGBOX'ın hücreden nasıl değer çekeceğini bulamadım. Yardım ederseniz sevinirim.

 

[Emir Hüseyin Çoban]

Merhaba,

2. sorunuz için kodlaru şu şekilde düzenleyerek deneyiniz.

Sub Makro3()
 MsgBox Range("[COLOR="Red"]A3[/COLOR]").Value
End Sub

 

[arimuz]

Merhaba,

2. sorunuz için kodlaru şu şekilde düzenleyerek deneyiniz.

teşekkürler hocam

 

[arimuz]

Merhaba,

2. sorunuz için kodlaru şu şekilde düzenleyerek deneyiniz.

Sub Makro3()
 MsgBox Range("[COLOR="Red"]A3[/COLOR]").Value
End Sub

4,568....... Gibi uzun bir sayı çıkıyor mesaj kutusunda hocam. Yazdırmak istediğim tam olarak şu: "sistemde toplam A3 dakika kaldınız." A3:Tarih/saat türünde bir veri

 

[hamitcan]

Sub Test()
    With Sayfa1
    If .DropDowns(1).Value = 1 Then
       .DropDowns(2).ListFillRange = "$L$3:$L$7"
    Else
       .DropDowns(2).ListFillRange = "$M$3:$M$7"
    End If
    End With
End Sub
Sub msgboxahucredenverial()
MsgBox [a1]
End Sub

 

[arimuz]

hamitcan hocam, sizede teşekkür ederim. peki ikinci açılan kutudaki ilgili veriye tıklayınca ilgili o sayfaya nasıl gidecek?

 

[İhsan Tank]

hamitcan hocam, sizede teşekkür ederim. peki ikinci açılan kutudaki ilgili veriye tıklayınca ilgili o sayfaya nasıl gidecek?

ben bir çalışma yaptım umarım işinizi görür
user butonuna tıklayın seçin
bakalım istediğiniz olmuş mu_?
eki inceleyiniz

 

[hamitcan]

Sub Test2()
On Error Resume Next
If Sayfa1.DropDowns(1).Value = 1 Then
Sheets("" & Cells(Sayfa1.DropDowns(2).Value + 2, "l") & "").Select
Else
Sheets("" & Cells(Sayfa1.DropDowns(2).Value + 2, "M") & "").Select
End If
End Sub

 

[arimuz]

hamitcan hocam, ihsan hocam; sayenizde açılır menüyü hallettim fakat hala msgbox'a hücreden (verinin bulunduğu hücre tarih/saat veri türünde) saat verisi çekemiyorum. teşekkürler

 

[hamitcan]

Sub test3()
    MsgBox FormatDateTime([a1], vbLongDate)
End Sub

 

[arimuz]

hocam sanırım tam olmadı bana 1989 tarihi verdi. ben hücremin içerisindeki saat değerini, msgbox da göstermek istiyorum.
birde bu bilgilere ulaşmanız ne kadar zamanınızı aldı? teşekkürler

 

[hamitcan]

Herşey zamanla oluyor. Ayrıca forumda hemen hemen her konuyu incelerim, farklı çözümleri aklımda tutmaya çalışırım.

 

[hamitcan]

Sorunuzu düzenlemişsiniz, yeni fark ettim; aşağıdaki şekilde deneyin.

Sub test4()
    MsgBox Format([a1], "hh:mm")
End Sub