-
Fototrend
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
-
Djatus
csendes tag
Sziasztok!
Egy kis segítség kellene:
Egy userformon szeretném megjeleníteni a kitöltőszín és betűszín comboboxokat.
Hogyan tudnám meghívni ezeket a komponenseket?
A VBA toolbox kontrolljai között nem találtam meg őket.Előre is köszönöm a válaszokat!

-
Djatus
csendes tag
válasz
matekmatika
#2079
üzenetére
Köszönöm szépen, pont ez kellett!

-
Djatus
csendes tag
Sziasztok!
Adott egy táblázat, melyben minden érték egyedi. Értéket keresnék benne és amelyik oszlopban megtalálja, annak adja vissza az oszlop nevét.
Pl.:
A B C
1 5 6
2 7 9
3 8 11
Tehát, ha a keresett érték pl.: 7, akkor B adja vissza eredményül.
A HA és a KUTAT (KERES) függvényel megtudom csinálni egy oszlopra, de egyszerre többre sajnos nem.
Előre is köszönöm a segítséget! -
Djatus
csendes tag
válasz
matekmatika
#1946
üzenetére
Köszi

-
Djatus
csendes tag
Sziasztok!
Macroból törölnék munkalapokat (ThisWorkbook.Sheets(ful).Delete). Erre az excel megerősítés kér minden alkalommal. Hogyan tudnám ezt megkerülni? Nem találtam a delete propertyhez semilyen kapcsolót.
Előreis köszi! -
Djatus
csendes tag
Sziasztok!
Első marcomat készítem...elakadtam...
Feladat: egy oszlop értékei között keresek egy értéket ''aaa'', majd egy sorral lejjebb ugorva beszúrnék egy töréspontot....ezt ismételni mindaddíg, még az utolsó sorra nem ér.
Felvettem a lépéseket (2 ugyanolyan lépést):
Selection.Find(What:=''aaa'', After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Rows(''11:11'').Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Range(''A11'').Select
Cells.FindNext(After:=ActiveCell).Activate
Rows(''19:19'').Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Hogyan tudnám kiolvasni az aktuális sor számát?
Milyan ciklus kell hozzá?
Előre is Köszönöm!
Új hozzászólás Aktív témák
- HIBÁTLAN iPhone 12 Pro Max 128GB Pacific Blue -1 ÉV GARANCIA - Kártyafüggetlen, 100% Akkumulátor
- szinteÚJ, dobozos Dell Pro 14 Ultra 7 255U 16GB DDR5 512GB AI PC FHD+ 1 év garancia
- Lenovo magyar laptop billentyűzetre van szükséged? Akármelyik verzióban segítünk!
- darkFlash GR12 Darkstorm Blue/Green
- GYÖNYÖRŰ iPhone 15 Pro 128GB Blue Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS4680
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50