Telefonszámunk: 1-472-0679

cellák, sorok üritése dátum alapján

Kezdőlap Fórumok Excel programozás cellák, sorok üritése dátum alapján

Ennek a témakörnek tartalma 27 hozzászólás, 3 résztvevő. Utolsó frissítés:  Potus 6 hónapja telt el a bejegyzés óta.

13 bejegyzés megtekintése - 16-28 / 28
  • Szerző
    Bejegyzés
  • #4688

    Potus
    Résztvevő

    utána…

    Attachments:
    You must be logged in to view attached files.
    #4697

    delila
    Résztvevő

    Visszaküldöm a VÁZLATOS füzetet, némi módosítással.

    Szerk.: El kellene menned Horváth Imihez egy VBA tanfolyamra. Míg nem látod átfogóan a lényeget, csak kapkodsz, és semmi nem marad meg. Hidd el, érdemes lenne.

    • A hozzászólás módosításra került: 6 hónapja telt el a bejegyzés óta- delila. Indok: Kéretlen tanács
    Attachments:
    You must be logged in to view attached files.
    #4700

    Potus
    Résztvevő

    ha megnyítom a netről a vázlatos1-et és igent nyomok a kérésre kiír valami hibát… globális hibát…

    Attachments:
    You must be logged in to view attached files.
    #4702

    Potus
    Résztvevő

    ha meg a kis naptáramat nyítom meg nekem is ki ír valamit…

    Attachments:
    You must be logged in to view attached files.
    #4704

    Potus
    Résztvevő

    az utolsó nem az , ez lesz jó….

    #4705

    Potus
    Résztvevő

    és ez..

    Attachments:
    You must be logged in to view attached files.
    #4707

    Potus
    Résztvevő

    gondolom bezavar a h5-be a két multi…. A tanfolyam jó ötletnek tűnik, bárki is jegyezte meg. Gondolkodom rajta.

    Attachments:
    You must be logged in to view attached files.
    #4709

    delila
    Résztvevő

    Szarvas hiba részemről! Úgy akartam egy cellára állni, hogy előtte nem aktiváltam a lapot.

    Private Sub Workbook_Open()
        Dim WS As Worksheet, sor As Long, valasz
        
        Set WS = Sheets("AKCIÓK")
        
        valasz = MsgBox("Töröljem a lejárt érvényességű tételeket?", vbYesNo + vbQuestion, "Törlési kérdés")
        If valasz = vbNo Then GoTo Raall
        
        With WS
            sor = 5
            Do While .Cells(sor, 1) <> ""
                If .Cells(sor, 2) < Date Then
                    .Range("A" & sor & ":C" & sor).Delete Shift:=xlUp
                Else: sor = sor + 1
                End If
            Loop
            
            sor = 5
            Do While .Cells(sor, 5) <> ""
                If .Cells(sor, 6) < Date Then
                    .Range("E" & sor & ":G" & sor).Delete Shift:=xlUp
                Else: sor = sor + 1
                End If
            Loop
        End With
        
    Raall:
        Sheets("NYÍTÓOLDAL").Select
        Range("H5").Select
    End Sub
    #4710

    Potus
    Résztvevő

    #4711

    Potus
    Résztvevő

    ..

    Attachments:
    You must be logged in to view attached files.
    #4713

    Potus
    Résztvevő

    ….

    Attachments:
    You must be logged in to view attached files.
    #4718

    delila
    Résztvevő

    A csatolt fájlodban NYÍTÓOLDAL névre hallgatott az első lapod. Lehet, hogy azóta javítottad a hosszú Í-t, azért fut hibára.

    #4719

    Potus
    Résztvevő

    Döbbenet, néha milyen egyszerű a világ…. 😀

    KÖSZI!!!!

13 bejegyzés megtekintése - 16-28 / 28

Be kell jelentkezni a hozzászóláshoz.