[Yardım]  Select Case Formül Kısaltma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Select Case Formül Kısaltma

İleti#1)  Textiler » 07 Kas 2019 20:42

Merhaba,
Aşağıda yer alan formülde Combox ve Label yanında yer alan numaralar birer birer artarken diğer kısımlar sabit. Bu formülü nasıl daha kısa bir şekilde yazabilirim?

Kod: Tümünü seç
Private Sub CommandButton2_Click()

Select Case ComboBox1.Value
   
    Case Is = "Hayır"
    Sheets("Sayfa1").Cells(a, 2) = Label1.Caption
    a = a + 1
   
End Select
   
Select Case ComboBox2.Value
   
    Case Is = "Hayır"
    Sheets("Sayfa1").Cells(a, 2) = Label2.Caption
    a = a + 1
   
End Select
   
Select Case ComboBox3.Value
   
    Case Is = "Hayır"
    Sheets("Sayfa1").Cells(a, 2) = Label3.Caption
    a = a + 1

End Select
End Sub

Desteğiniz için teşekkür ediyorum.
Kullanıcı avatarı
Textiler
Yeni Başlamış
 
Adı Soyadı:Mert Bilgi
Kayıt: 19 Şub 2014 14:24
Konum: İzmir
Meslek: Mühendis
Yaş: 35
İleti: 91
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Select Case Formül Kısaltma

İleti#2)  şahin » 07 Kas 2019 21:52

Kod: Tümünü seç
yaz = 1
For i = 1 To 3
    If Me.Controls("ComboBox" & i).Value = "Hayır" Then
        Sheets("Sayfa1").Cells(yaz, 2) = Me.Controls("Label" & i).Caption
        yaz = yaz + 1
    End If
Next i
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 824
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Select Case Formül Kısaltma

İleti#3)  Textiler » 08 Kas 2019 09:17

Şahin Bey,
Desteğiniz ve emeğiniz için teşşekür ediyorum şkşk
Kullanıcı avatarı
Textiler
Yeni Başlamış
 
Adı Soyadı:Mert Bilgi
Kayıt: 19 Şub 2014 14:24
Konum: İzmir
Meslek: Mühendis
Yaş: 35
İleti: 91
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: fcoskun ve 3 misafir

cron
Bumerang - Yazarkafe