cod vba pentru latimea unei coloane la o anumita dimensiune in functie de o valoare din oricare celula din acea coloana

[popa catalin]

Buna ziua
va rog sa ma ajutati cu urmatoarea problema:
sa dori un cod vba pentru dimensionarea coloanelor unui tabel la o anumia valoare in functie de o valoare care se regaseste in celulele unei coloane.

Mai exact: inr-un tabel daca de exemplu in oricare celula dintr-o coloana introduc cifra 8, acea coloana sa aiba column width=4, iar daca este alta valoare sa aiba column width =1.
si tot asa pentru oricare coloana din acel tabel.
mulumesc anticipat

 

[popa catalin]

Acum functioneaza exact cum ati spus dumneavoastra.
Eu as vrea daca pun orce valoare intr-o celula si daca pe coloana respectiva intalneste un 8 sa ramana latimea coloanei 5 ,iar daca pe coloana respectiva ne e nici un 8 atunci latimea coloanei sa fie 1.9

 

[bebo021999]

Introduceți orice valoare sau text în zona D10:H50, acest cod va verifica dacă coloana care conține acea valoare sau text conține cifra 8; dacă da, atunci lățimea coloanei va fi setată la 5. Este corect așa?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Intersect(Target, Range("D10:H50")) Is Nothing Then Exit Sub
With Target.EntireColumn
    If Application.Match(8, Intersect(Target.EntireColumn, Range("D10:H50")), 0) Then
        .ColumnWidth = 5
    Else
        .ColumnWidth = 1.9
    End If
End With
End Sub

 

[popa catalin]

Asa este corect cum spuneti insa imi da o eroare

 

[popa catalin]

Asa este corect cum spuneti insa imi da o eroare