Hücreye değer geldiğinde direk açılan userform

[hamitcan]

O zaman kod değişir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [g:g, i:i, k:k, m:m, o:o]) Is Nothing Then
    If Target.Text = "CANC" Then UserForm1.Show
    End if
    If Not Intersect(Target, [s:s]) Is Nothing Then
    If Target.Text = "CANC" Then UserForm2.Show
    End if
End Sub

 

[adventurous26]

O zaman kod değişir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [g:g, i:i, k:k, m:m, o:o]) Is Nothing Then
    If Target.Text = "CANC" Then UserForm1.Show
    End if
    If Not Intersect(Target, [s:s]) Is Nothing Then
    If Target.Text = "CANC" Then UserForm2.Show
    End if
End Sub

teşekkür ederim ancak ikinci userformda canc değilde P sütununa herhangi bir sayı değeri girildiğinde userform2 açılması gerekiyor.Ben bir şekilde userform2 nin açılmasını sağladım ama bilgi girişi yapıp kaydet dediğimde bilgileri özel araç dosyasındaki tabloya yazdıramadı.Dosyayı ekledim ordan kontrol edebilirmisiniz

 

[hamitcan]

Önceki mesajınızda s sütunu yazmıştınız, burada p sütunundan bahsediyorsunuz... Ayrıca s sütununda formül mevcut. Konuyu netleştirebilir miyiz ?

 

[adventurous26]

Bu size attığım örnek dosya s veya p olması sorun değil ben onu ayarlarım siz örnek attığım dosya üzerinden bakabilirsiniz dediğim gibi p sütununa sayı girfiğimdwçe userform2 açılıyor ama içindeki bilgiyi özel araç sekmesindeki sayfaya kaydettiremiyorum orada takıldım

 

[hamitcan]

Konu başka bir tarafa evrildi.
Userform2 deki Userform1 yazan kısımları değiştirin. ayrıca ComboBox2(Tarih alanı) içini doldurmalısınız.

Private Sub CommandButton1_Click()
    Dim syf As Worksheet
    Dim sonSatir As Long
    
    Set syf = ThisWorkbook.Worksheets("cancelled")

    sonSatir = syf.Cells(syf.Rows.Count, 2).End(xlUp).Row
    

    syf.Range("B" & sonSatir + 1).Value = UserForm1.TextBox1.Value
    syf.Range("C" & sonSatir + 1).Value = UserForm1.ComboBox1.Value
    syf.Range("D" & sonSatir + 1).Value = UserForm1.ComboBox2.Value
    syf.Range("E" & sonSatir + 1).Value = UserForm1.ComboBox3.Value
    syf.Range("F" & sonSatir + 1).Value = UserForm1.TextBox2.Value
    MsgBox "Kaydedildi.", vbQuestion, "Bilgi"
UserForm1.Hide
    
    ActiveCell.Offset(-1, 0).Interior.Color = RGB(255, 255, 0)

    
End Sub

 

[adventurous26]

Teşekkür ederim sizin desteğinizle çözdüm ancak son bir noktayı düzeltemiyorum tarihi comboboxtan seçdiğimde tarih yerine kutuya sayı yazıyor resimde görüldüğü gibi.Yaptığım haliyle dosyayıda ekliyorum.

 

[hamitcan]

Tarih alanı için ComboBox2 nesnesini kullanmalısınız.

Private Sub ComboBox2_Change()
    Dim tarih As Date
    tarih = CDate(ComboBox2.Value)
    ComboBox2.Value = Format(tarih, "dd/mm/yyyy")
End Sub

 

[adventurous26]

Tarih alanı için ComboBox2 nesnesini kullanmalısınız.

Private Sub ComboBox2_Change()
    Dim tarih As Date
    tarih = CDate(ComboBox2.Value)
    ComboBox2.Value = Format(tarih, "dd/mm/yyyy")
End Sub

Teşekkür ederim