Buton ile ilgili;

[snaykeder]

Merhabalar;

Öncelikle yardımlarınız için şimdiden teşekkürler

Ekte macro ile yapmış olduğum çalışmamda yardımlarını istiyorum
Herşey tamam ama tek bir eksik kaldı oda şu;

Menüden Yeni talep kaydını açtığımda ve oradaki satırlardan
arama yapma bölümünün örneğin talep nodan çıkan bilgiyi şeçerek fatura geldi butonuna tıkladığımda Data Bölümünde bulunan kaydının rengi mavi olsun istiyorum.

 

[suleyman242]

Merhabalar;

Öncelikle yardımlarınız için şimdiden teşekkürler

Ekte macro ile yapmış olduğum çalışmamda yardımlarını istiyorum
Herşey tamam ama tek bir eksik kaldı oda şu;

Menüden Yeni talep kaydını açtığımda ve oradaki satırlardan
arama yapma bölümünün örneğin talep nodan çıkan bilgiyi şeçerek fatura geldi butonuna tıkladığımda Data Bölümünde bulunan kaydının rengi mavi olsun istiyorum.

Kaydı seçince combobox8 e kayıt numaran geliyor
bu kayıt numarasının olduğu saytırı boyatabilirsin

Private Sub CommandButton5_Click()
Sheets("Data").Select
secim = ComboBox8.Value + 1

    If secim = 0 Then Exit Sub
    Range("A" & secim & ":L" & secim).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub

 

[snaykeder]

Buton kodu için şöyle bir kod buldum ama sanırım yanlış yapıyorum

Private Sub CommandButton5_Click()
Sheets("Data").Select
If Not Target.Column = 1 Then Exit Sub
Range("B" & Target.Row & ":K" & Target.Row).Interior.Color = 15261110
Else
Range("B" & Target.Row & ":K" & Target.Row).Interior.Color = ColorConstants.vbWhite
End If
End Sub

 

[snaykeder]

Kaydı seçince combobox8 e kayıt numaran geliyor
bu kayıt numarasının olduğu saytırı boyatabilirsin

Private Sub CommandButton5_Click()
Sheets("Data").Select
secim = ComboBox8.Value + 1

    If secim = 0 Then Exit Sub
    Range("A" & secim & ":L" & secim).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub

Bir deneme yapayım

 

[snaykeder]

Çok teşekkürler Süleyman Bey;

Çok güzel çalıştı
bı kodda bir değişiklik yapıp B ile K satırları arası boya olarak değiştirdim

Private Sub CommandButton5_Click()
Sheets("Data").Select
secim = ComboBox8.Value + 1

    If secim = 0 Then Exit Sub
    Range("B" & secim & ":K" & secim).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub

 

[snaykeder]

Süleyman Bey tekrar özür dilerim buradaki rengi nasıl değiştireceğim

Burada Bahsi edilen rengi kullanmak istiyorum

Private Sub CommandButton5_Click()
Sheets("Data").Select
If Not Target.Column = 1 Then Exit Sub
Range("B" & Target.Row & ":K" & Target.Row).Interior.Color = [COLOR="Red"]15261110[/COLOR]
Else
Range("B" & Target.Row & ":K" & Target.Row).Interior.Color = ColorConstants.vbWhite
End If
End Sub

 

[snaykeder]

Private Sub CommandButton5_Click()
Sheets("Data").Select
secim = ComboBox8.Value + 1

    If secim = 0 Then Exit Sub
    Range("B" & secim & ":K" & secim).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
End Sub

Buradaki rengi nasıl değiştiririz

 

[Muzaffer Ali]

.ThemeColor = xlThemeColorLight2
satırını silip
.Color = 15261110
satırını ekle

 

[snaykeder]

.ThemeColor = xlThemeColorLight2
satırını silip
.Color = 15261110
satırını ekle

Ok Teşekkürler
Allah razı olsun

 

[suleyman242]

Süleyman Bey tekrar özür dilerim buradaki rengi nasıl değiştireceğim

Burada Bahsi edilen rengi kullanmak istiyorum

    With Selection.Interior
                .Color = 15261110
    End With