- Milyen egeret válasszak?
- Leiskolázná a mezőnyt az új Samsung csúcs-SoC
- BIOS topic
- Kormányok / autós szimulátorok topikja
- Projektor topic
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- AMD Navi Radeon™ RX 7xxx sorozat
- Felvenné a Noctua kesztyűjét az ASUS
- Gaming notebook topik
- Végleg lemondott a régi gépekről a Steam
-
PROHARDVER!
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
-
lappy
őstag
Sziasztok
Ezt a fajta diagramot hogyan lehet létrehozni
Addig sikerült eljutni hogy vonal diagram és ehhez be kell állítani a hibásávokat talán
Csak azt nem tudom hogy ha van egy adatsorom ami a következő szerint épül fel
1 oszlop mintavétel mélysége
2 oszlop minden mintavételhez 3-3 hőmérséklet adat
3 oszlop minden mintavételhez 3-3 ph adat
-
lappy
őstag
válasz
Fferi50
#54716
üzenetére
Public Sub OszlopbaTördelésOszloponként()
Dim ws As Worksheet
Dim lastRow As Long
Dim chunkSize As Long
Dim skipCount As Long
Dim i As Long
Dim targetStartRow As Long
Dim pasteRow As Long
Dim pasteCol As Long
Dim dataRow As LongSet ws = ThisWorkbook.ActiveSheet
' Kérdés: hány elemet hagyjon ki
skipCount = Application.InputBox("Hány elemet szeretnél kihagyni az elején?", "Elemek kihagyása", Type:=1)
If skipCount < 0 Then Exit Sub' Kérdés: hány elemet másoljon egy oszlopba
chunkSize = Application.InputBox("Hány elemet szeretnél egy oszlopba másolni?", "Osztás megadása", Type:=1)
If chunkSize <= 0 Then Exit Sub' A oszlop utolsó adat sor
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row' Meghatározzuk, hova kezdje a másolást (ha már volt előző futás)
If Application.WorksheetFunction.CountA(ws.Range("B:ZZ")) = 0 Then
targetStartRow = 1
Else
targetStartRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row + 1
End If' Másolás
dataRow = skipCount + 1
pasteCol = 2 ' B oszlop
pasteRow = targetStartRowDo While dataRow <= lastRow
' Egy oszlop feltöltése chunkSize elemmel
For i = 1 To chunkSize
If dataRow > lastRow Then Exit For
ws.Cells(pasteRow, pasteCol).Value = ws.Cells(dataRow, 1).Value
pasteRow = pasteRow + 1
dataRow = dataRow + 1
Next i' Következő oszlop, vissza a kezdő sorra
pasteCol = pasteCol + 1
pasteRow = targetStartRow
LoopMsgBox "? Kész! Az adatok oszloponként lettek átmásolva."
End Sub
itt a teljes kód és a
Do While dataRow <= lastRow részt hagyja ki -
lappy
őstag
válasz
föccer
#54633
üzenetére
2. kérdésre talán ezek
- Progress Bar in Excel VBA using For Loop
- Progress Bar for all your excel Applications
ha ilyenre gondoltál -
-
lappy
őstag
válasz
Nori0924
#54588
üzenetére
Akkor a táblázat sem a legjobb ilyen szempontból
En a következőt tenném
A oszlop nevek
B oszloptol jönnek a hónapok
Valahova betennem a mai dátumot
Minden honap alatt képeznèk egy utolsó napot a Honapok nevei alapján
Ha ez megvan akkor ha a mai datum nagyobb mint a honap utolsó dátuma es a cella üres akkor piros legyen -
#54573
lappy
őstag
macilaci78
#54572
lappy
őstag
válasz
macilaci78
#54572
üzenetére
Szövegből oszlopok
-
lappy
őstag
Hogyan lehetne megoldani a következő problémát:
Van egy termék adatlap ezen öt gyártó terméke található tulajdonságokkal
Egy másik lapon kellene nekem egy olyan választós menürendszer amivel a termékeket le tudom szűrni. De most az első probléma az lenne hogy szeretnék felrakni 5db gombot (nem váalsztógombot) és ha valamelyiket kiválasztom akkor egy adott tartományt ad (vagy csak egy értéket) a háttérben. Ami fontos hogy makró nem járható út. -
-
#53829
lappy
őstag
Oryctolagus
#53828
lappy
őstag
válasz
Oryctolagus
#53828
üzenetére
Csak ötlet fkeres(hol.van(szoveg.keres))) vmi ilyesmivel próbálkoznek
(Nem tudom most tesztelni nincs excel a közelben) -
#53768
lappy
őstag
B.György_2
#53767
lappy
őstag
válasz
B.György_2
#53767
üzenetére
kép nincs
-
lappy
őstag
válasz
blountex
#53741
üzenetére
Szerintem elég lenne a A37 R37 táblázat amiben ott van oszloposan hogy milyen raklap kell soronkent egy szállításhoz
Egy külön sorba pedig összegzés majd ezt szorzatosszeg függvénnyel szorzod az s24 táblázat megfelelő oszlopaval
Es megkapod összesen mennyi a súlya az egésznek de akár lehet soronkent is ezt felhasználni -
-
lappy
őstag
válasz
tylerddd
#53227
üzenetére
megjegyzés jobb klikk - új megjegyzés
A Kezdőlap lapon kattintson a Beillesztés alatti nyílra , majd kattintson a Irányított beillesztés lehetőségre .
Az Irányított beillesztés párbeszédpanel Beillesztés alatt kattintson a Megjegyzések elemre , majd kattintson az OK gombra . -
#53086
lappy
őstag
Lasersailing
#53085
lappy
őstag
válasz
Lasersailing
#53085
üzenetére
Indirekt függvényt nezd meg
-
#53027
lappy
őstag
Lasersailing
#53026
lappy
őstag
válasz
Lasersailing
#53026
üzenetére
In the Visual Basic Editor, on the Tools menu, click References.
Click to select the Microsoft Outlook 15.0 Object Library check box, and then click OK. -
#52996
lappy
őstag
szotyika77
#52995
lappy
őstag
válasz
szotyika77
#52995
üzenetére
mert lehet a formátuma nem szám
-
lappy
őstag
válasz
Delila_1
#52706
üzenetére
$A1$1*C1
lanszelot
C2 cellába beírod a képletet ha erre ráállsz akkor a jobb alsó sarokban lesz egy fekete kereszt ekkor megfogod és végig húzod a Z oszlopig
Ezután kijelölöd a kapott értékeket majd másolás a beillesztès pedig ugy történik hogy jobb gomb es csak az értékeket másolja be -
#52561
lappy
őstag
Darko_addict
#52560
lappy
őstag
válasz
Darko_addict
#52560
üzenetére
szerintem meg annyit kellene csak hogy ha jól látom akkor napok szerint írod be a gyártást ami levonódik, viszont amikor jön be anyag akkor azt is ide írd be csak ezek pluszosok legyenek a készek pedig - előjelűek és ezt az egészet összegzed
- max egyszerűsíteni de ezen nem
<>"");B
Új hozzászólás Aktív témák
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Milyen egeret válasszak?
- Automata kávégépek
- Bestbuy játékok
- Leiskolázná a mezőnyt az új Samsung csúcs-SoC
- BIOS topic
- Samsung Galaxy Felhasználók OFF topicja
- Kormányok / autós szimulátorok topikja
- Projektor topic
- Megjött Magyarországra a legnagyobb akkuval szerelt Redmi
- További aktív témák...
- ÚJ! 32GB (2x16GB) Kingston DDR5 5600MT/s RAM készlet Bontatlan
- 2025.12.04 - Frissített Lenovo Gamer árlista (RTX 5090 / 4090 / 5080 / 4080 / 5070Ti / 4070 / 5060)
- LG 27GS95QE - 27" OLED / QHD 2K / 240Hz & 0.03ms / 1000 Nits / NVIDIA G-Sync / AMD FreeSync
- Telefon felvásárlás!! Huawei P20 Lite/Huawei P20/Huawei P30 Lite/Huawei P30/Huawei P30 Pro
- iKing.Hu - Google Pixel 10 Tensor G5, 120 Hz OLED, tripla kamera-128 GB Használt, karcmentes Gari
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest