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

 

[bebo021999]

Puteți să-mi spuneți care este adresa tabelului? De exemplu: A1:G100.
Cel mai bine ar fi să încărcați aici o imagine care conține tabelul respectiv.

 

[popa catalin]

D10:Mai

 

[popa catalin]

Scuze, D10:M50, este un pontaj, la care dacă pun la o persoana intr-o celulă 8 ore aș dori ca dimensiunea coloanei să fie de 5, iar dacă pun co sau altceva dimensiunea coloanei să fie de 1,29

Puteți să-mi spuneți care este adresa tabelului? De exemplu: A1:G100.
Cel mai bine ar fi să încărcați aici o imagine care conține tabelul respectiv.

 

[bebo021999]

Codul acesta se va activa atunci când există o modificare în zona D10:H50 (introducere manuală).
Dacă valoarea este 8, atunci lățimea va fi 5, altfel va fi 1,9. Faceți clic dreapta pe numele tab-ului, vizualizați codul și apoi inserați codul de mai jos.

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 Target.Value = 8 Then
        .ColumnWidth = 5
    Else
        .ColumnWidth = 1.9
    End If
End With
End Sub

 

[popa catalin]

Puteți să-mi spuneți care este adresa tabelului? De exemplu: A1:G100.
Cel mai bine ar fi să încărcați aici o imagine care conține tabelul respectiv.

Codul acesta se va activa atunci când există o modificare în zona D10:H50 (introducere manuală).
Dacă valoarea este 8, atunci lățimea va fi 5, altfel va fi 1,9. Faceți clic dreapta pe numele tab-ului, vizualizați codul și apoi inserați codul de mai jos.

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 Target.Value = 8 Then
        .ColumnWidth = 5
    Else
        .ColumnWidth = 1.9
    End If
End With
End Sub

Vă mulțumesc frumos m-ați ajutat ff mult.
Dacă cumva treceți vreodată prin Cotnari vă aștept cu o sticlă de vin.
Încă odată vă mulțumesc din suflet

 

[popa catalin]

Codul acesta se va activa atunci când există o modificare în zona D10:H50 (introducere manuală).
Dacă valoarea este 8, atunci lățimea va fi 5, altfel va fi 1,9. Faceți clic dreapta pe numele tab-ului, vizualizați codul și apoi inserați codul de mai jos.

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 Target.Value = 8 Then
        .ColumnWidth = 5
    Else
        .ColumnWidth = 1.9
    End If
End With
End Sub

Am verificat, e super ok, multumesc

 

[bebo021999]

Mă bucur că codul funcționează bine. Cu siguranță, atunci când voi călători prin România, voi avea ocazia să ne întâlnim.

 

[popa catalin]

Mă bucur că codul funcționează bine. Cu siguranță, atunci când voi călători prin România, voi avea ocazia să ne întâlnim.

AZI AM MAI TESTA SI CEVA NU E BINE
As dori ca daca intr-o coloana exista un singur 8 sau mai multi de 8 sa ramana latimea coloanei 5 ,iar daca nu este nici un 8 latimea coloanei sa fie de 1.9

 

[popa catalin]

INCERC SA PUN O POZA DAR NU REUSESC