- Katılım
- 22 Ocak 2007
- Mesajlar
- 128
- Excel Vers. ve Dili
- Ofis excell 2003 türkçe
Merhaba arkadaşlar, bir çok suallerime aslında cevap alamasamda yine bir ümitle sormaya karar verdim.
Sorum şu ki; Açılan bir kutum var ve o kutu içinde 4 tane sabit kelimem var, bunlar sırasıyla -İdari-Arsiv-Pz-Satınalma- ben bu alanlardan birisi seçildiğinde -Metin0-Metin2- alanlarında kod alanında istenilen kelimeler eşleştiğinde diğer alanlara otomatik istetiğim kelimeler yazılsın, yani..
Örnek :
Private Sub Komut5_Click()
On Error GoTo Err_Komut5_Click
Select Case AçılanKutu10
Dim stDocName As String
Dim stLinkCriteria As String
Case "idari"
If Metin0 = "türkiye" Then
If Metin2 = "ailemiseviyorum" Then
Me.kısımsifresi.Text = "a dolabı"
Me.kısımsifresi.SetFocus
Me.büro.Text = "idari"
Me.büro.SetFocus
Me.büroklasör.Text = "45"
Me.büroklasör.SetFocus
End If
Case "arsiv"
If Metin0 = "kabzımal" Then
If Metin2 = "2315" Then
Me.kısımsifresi.Text = "a dolabı"
Me.kısımsifresi.SetFocus
Me.büro.Text = "idari"
End If
Exit_Komut5_Click:
Exit Sub
Err_Komut5_Click:
MsgBox Err.Description
Resume Exit_Komut5_Click
End Select
End Sub
Ben böyle bir kod yazdığımda hata veriyor. Ancak problemi çözmek için ancak sadece "metin0" alanında yazdığımda diğer"Metin2" alanına kaldırdığımda problem çözülüyor.
Kısaca benim istediğim şu;
İdari seçilmişken açılan kutuda; Metin0 ve Metin2 alanında yazılanlar uyuştuğunda ilgili alanlara yazılmasını istediğim şeyler yazsın. Uyuşmadığında birşey yapmasın.
Ancak bu kod hata veriyor hele ki mesela "idari" nin altında çok sayıda şart kullandığımda.. hatada End Select te..
Yardım edecek arkadaşlara şimdiden teşekkürler.
Sorum şu ki; Açılan bir kutum var ve o kutu içinde 4 tane sabit kelimem var, bunlar sırasıyla -İdari-Arsiv-Pz-Satınalma- ben bu alanlardan birisi seçildiğinde -Metin0-Metin2- alanlarında kod alanında istenilen kelimeler eşleştiğinde diğer alanlara otomatik istetiğim kelimeler yazılsın, yani..
Örnek :
Private Sub Komut5_Click()
On Error GoTo Err_Komut5_Click
Select Case AçılanKutu10
Dim stDocName As String
Dim stLinkCriteria As String
Case "idari"
If Metin0 = "türkiye" Then
If Metin2 = "ailemiseviyorum" Then
Me.kısımsifresi.Text = "a dolabı"
Me.kısımsifresi.SetFocus
Me.büro.Text = "idari"
Me.büro.SetFocus
Me.büroklasör.Text = "45"
Me.büroklasör.SetFocus
End If
Case "arsiv"
If Metin0 = "kabzımal" Then
If Metin2 = "2315" Then
Me.kısımsifresi.Text = "a dolabı"
Me.kısımsifresi.SetFocus
Me.büro.Text = "idari"
End If
Exit_Komut5_Click:
Exit Sub
Err_Komut5_Click:
MsgBox Err.Description
Resume Exit_Komut5_Click
End Select
End Sub
Ben böyle bir kod yazdığımda hata veriyor. Ancak problemi çözmek için ancak sadece "metin0" alanında yazdığımda diğer"Metin2" alanına kaldırdığımda problem çözülüyor.
Kısaca benim istediğim şu;
İdari seçilmişken açılan kutuda; Metin0 ve Metin2 alanında yazılanlar uyuştuğunda ilgili alanlara yazılmasını istediğim şeyler yazsın. Uyuşmadığında birşey yapmasın.
Ancak bu kod hata veriyor hele ki mesela "idari" nin altında çok sayıda şart kullandığımda.. hatada End Select te..
Yardım edecek arkadaşlara şimdiden teşekkürler.