Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #18275 marchello1 csendes tag
    Új Válasz #18275
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    marchello1

    csendes tag

    Sziasztok,
    Írtam egy makrót, de vannak pontok ahol elakadtam. :F
    Az első az, hogy ha megadok egy DÁTUMOT akkor beírja a jobb oldalon lévő összevont cellába, de az újabb bevitelnél már nem. Tehát csak az első cellába írja ki a bevitt dátumot. (akkor működik, ha nincsenek a cellák egyesítve)

    A második, meg, a két helyszínt csak egymás mellé tudom kiadni, egymás alá már nem megy.

    Ha erre valaki tudna nekem segíteni azt nagyon megköszönném :R :R
    Itt van a kép: [link]
    Itt a file: link
    Itt az eddig megírt makró:
    Private Sub CommandButton1_Click()

    Dim nextrow As Integer
    nextrow = WorksheetFunction.CountA(Sheets("Munka1").Range("i:i")) + 1

    Sheets("Munka1").Cells(nextrow, 9) = Munka1.Range("B2").Value
    Sheets("Munka1").Cells(nextrow, 11) = Munka1.Range("B3").Value
    Sheets("Munka1").Cells(nextrow, 11) = Munka1.Range("B4").Value

    Munka1.Range("B2").Value = ""
    Munka1.Range("B3").Value = ""
    Munka1.Range("B4").Value = ""

    End Sub

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