Soru Satır sütun tekrarı makro

[beratprog]

merhabalar bir uygulama yapıyorum otobüs rezervasyon gibi userform da altta örneği

Dim i, a As Integer
i = 1
tekrar:
If (TextBox1.Text = i And TextBox2.Text = "E") Or (TextBox1.Text = i And TextBox2.Text = "K") Then
Range("B2").Interior.ColorIndex = 1
Range("B2").Font.ColorIndex = 2
Range("B2") = TextBox2.Value
UserForm1.Hide
GoTo bitir
End If
i = i + 1
GoTo tekrar
bitir:

rezervasyon butonu da böyle örneğin textbox1 içine 1 yazıldı textbox2 içine de E 1. koltuk nere ise gidip ilgili yerin fontunu ve arka plan rengini değiştirmesini istiyorum ve oraya E veya K hangisini yazdıysa userforma öyle olucak şekil de, ben B2 hücresini yapabildim sadece sorunum bunu kısa yoldan arttırabilme şansımız var mı örneğin 2 yazıldı C2 gidecek arttırıp gibi taslak foto altta buyrun inşallah anlatabilmişimdir yardımcı olabilirseniz çok sevinirim iyi günler

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.

    Dim Bak As Range
    Set Bak = Range("B2:F11").Find(what:=TextBox1.Text, lookat:=xlWhole)
    Bak.Value = UCase(TextBox2.Text)
    If Bak.Text = "E" Then
        Bak.Interior.Color = 15773696
    ElseIf Bak.Text = "K" Then
        Bak.Interior.Color = 10053375
    End If

Eğer olmazsa ya da farklı bir ekleme yapmak isterseniz örnek dosyanızı dosya.tc gibi bir paylaşım sitesine yükleyip paylaşın, üzerinde yapalım.

 

[beratprog]

Merhaba.
Aşağıdaki kodu deneyin.

    Dim Bak As Range
    Set Bak = Range("B2:F11").Find(what:=TextBox1.Text, lookat:=xlWhole)
    Bak.Value = UCase(TextBox2.Text)
    If Bak.Text = "E" Then
        Bak.Interior.Color = 15773696
    ElseIf Bak.Text = "K" Then
        Bak.Interior.Color = 10053375
    End If

Eğer olmazsa ya da farklı bir ekleme yapmak isterseniz örnek dosyanızı dosya.tc gibi bir paylaşım sitesine yükleyip paylaşın, üzerinde yapalım.

Çok teşekkür ederim bu faydamı görür elinize sağlık tam istediğim gibi olmuş iyi akşamlar