Keresés

Új hozzászólás Aktív témák

  • BenJoe80

    senior tag

    válasz Delila_1 #24842 üzenetére

    :B :R :B

    Nagyon szépen köszönöm!!! Közben kértem segítséget máshonnan is és ha nem baj összehasonlítanám a tieddel. A te makród:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
    Application.EnableEvents = False
    Range(Target.Address) = Left(Target, 4)
    Application.EnableEvents = True
    End If
    End Sub

    A másik amit kaptam:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D:D")) Is Nothing And Target.Value <> "" Then

    ActiveCell.Value = Left(Target.Value, 4)
    End If
    End Sub

    Bár mindkét makró pontosan azt teszi amire szükségem van, csupán kíváncsiságból: mi a különbség?

    Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"

  • BenJoe80

    senior tag

    válasz Delila_1 #24842 üzenetére

    Még egy utolsó kérdés: hogy lehet a legördülő lista szélességét beállítani? Megfigyeltem, hogy az általad módosított táblázat legördülő listájában szépen olvasható a kód és név (legnagyobb része) egymás mellett. Amit én csináltam, ott meg a kód is csak ímmel-ámmal fér be legördülő lista szélességébe.

    Pontosítok. A táblázatodban a legördülő lista szélesebb mint maga az oszlop, míg az enyémben csak olyan széles, mint maga az oszlop.

    [ Szerkesztve ]

    Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"

Új hozzászólás Aktív témák