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.
Gyorskeresés
Legfrissebb anyagok
Általános témák
LOGOUT.hu témák
- [Re:] [Sub-ZeRo:] Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- [Re:] [sziku69:] Szólánc.
- [Re:] Elektromos rásegítésű kerékpárok
- [Re:] [Luck Dragon:] Asszociációs játék. :)
- [Re:] [sziku69:] Fűzzük össze a szavakat :)
- [Re:] [bitpork:] 2024 phautós tali ?
- [Re:] [Parci:] Milyen mosógépet vegyek?
- [Re:] [wapee:] Eltávozott a kis angyalom
- [Re:] Olcsó USB WiFi AC adapter
- [Re:] [D1Rect:] Nagy "hülyétkapokazapróktól" topik
Szakmai témák
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD.hu témák
Téma összefoglaló
- Utoljára frissítve: 2023-11-13 08:31:56
LOGOUT.hu
Hozzászólások
marchello1
csendes tag
Sziasztok,
Írtam egy makrót, de vannak pontok ahol elakadtam. 
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 
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
