- Itt van az eddig legjobban teljesítő kétfiókos NAS a TerraMastertől
- ASUS routerek
- Az EU szerint a ChatGPT még mindig nem felel meg a szabványoknak
- Kiderült, hogy hol veszik a legtöbb kínai EV-t
- Windows 11
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Windows 10
- DIGI kábel TV
- Linux - haladóknak
-
IT café
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
-
mexel
veterán
-
m.zmrzlina
senior tag
válasz Delila_1 #23618 üzenetére
Én tudom, hogy olyan vagyok mint Móricka akinek mindenről AZ jut az eszébe de ez tényleg csak pár sor makró. Feltéve ha nincsen képlettel előállított cellaérték mert a képletet felül fogja írni a cellaértékkel. Bár ha a Word-ös megoldás működött akkor ez is fog.
Sub nagybetu()
For Each cella In Selection.Cells
If Not IsEmpty(cella) Then
cella.Value = UCase(cella.Value)
End If
Next
End Sub -
slashing
senior tag
válasz Delila_1 #23667 üzenetére
egy bajom van a táblázattá alakított táblázattal hogy lapvédelemnél a mocsok nem bővül, így meg nem lehet védeni benne az érvényesített oszlopokat a képleteket semmit . Van egy ilyen táblázatom amit kb. 10-15-ön töltenek és minden héten javítanom kell rajta valamit. A képletket tartalmazó oszlopkon már macro van hogy ne tudják törölni őket de arra még nem jöttem rá hogy a búbánatba tudják a feltételes formázást minden héten tönkrevágni rajta...
-
-
-
Delila_1
Topikgazda
válasz Delila_1 #23723 üzenetére
Meg is van.
Sub Oszlopok_1()
Dim WS1 As Worksheet, WS2 As Worksheet, sor As Long, usor As Long
Dim oszlop As Integer, uoszlop As Integer, cim As String, oszlophova As Integer
Dim WF As WorksheetFunction, sorhova As Long
Set WS1 = Sheets("Munka1")
Set WS2 = Sheets("Munka2")
Set WF = Application.WorksheetFunction
sor = 1
WS1.Select
Do While Cells(sor, 1) <> ""
uoszlop = WS1.Range("A" & sor).End(xlToRight).Column
sorhova = WS2.UsedRange.Rows.Count + 1
For oszlop = 1 To uoszlop
cim = Cells(sor, oszlop)
On Error GoTo Tovabb
oszlophova = WF.Match(cim, WS2.Rows(1), 0)
Cells(sor + 1, oszlop).Select
usor = Selection.End(xlDown).Row
Range(Cells(sor + 1, oszlop), Cells(usor, oszlop)).Copy WS2.Cells(sorhova, oszlophova)
Tovabb:
On Error GoTo 0
Next
sor = Range("A" & sor).End(xlDown).Row
sor = Range("A" & sor).End(xlDown).Row
Loop
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
slashing
senior tag
-
slashing
senior tag
válasz Delila_1 #23724 üzenetére
annyi módosításban még segítenél hogy a WS1 az mindig annak a workbooknak az activesheetje legyen ahol éppen áll, mert ezelőtt a kód előtt van egy sheet.add-om a ws2 meg egy fix workbook fix sheetje amibe végül bekerül
(egy mappában lesznek)
Szerk:
(#23728) Fferi50 Nézem, köszi[ Szerkesztve ]
-
Fferi50
őstag
válasz Delila_1 #23724 üzenetére
Szia!
Néhány apró észrevétel:
" Cells(sor + 1, oszlop).Select
usor = Selection.End(xlDown).Row
"A select teljesen felesleges, egyszerűen usor=cells(sor+1,oszlop).end(xldown).row elég.
A worksheetfunction.match helyett célszerűbb az application.match függvényt alkalmazni, (ezt én is egy másik topicban tanultam), mivel így más módon kell a hibakezeléssel foglalkozni.
A ws.match hibát generál, ha nem találja a keresett értéket, az app.match hibaértékkel tér vissza, amit változóban vagy függvényben is "elkaphatsz", akár az iserror, akár az iferror függvény működik. Tehát ebben az esetben nem kell az on error goto vagy on error resume next sor és a hozzá kapcsolódó dolgok.Ha iserrort használsz, akkor "csak" arra kell figyelned, hogy a változó, amibe kéred a match eredményét, variantnak legyen definiálva - mivel értéke lehet szám és lehet hibaérték is. Iferrornál nem kerül a változóba hiba, tehát ott jó a double is.
Üdv.
-
bteebi
veterán
válasz Delila_1 #23614 üzenetére
"Van egy másik, a TNÉV, ami a hivatkozott szöveg minden szavának első betűjét nagyra-, a többit kicsire állítja"
Basszus, pont néhány napja kerestem ezt a függvényt, mert úgy emlékeztem, hogy van ilyen. Sajnos csak a KISBETŰ-t és a NAGYBETŰS-t találtam meg .
Cancel all my meetings. Someone is wrong on the Internet.
-
Fferi50
őstag
válasz Delila_1 #23738 üzenetére
Szia!
Félreértettél, nem azt írtam, hogy nincs hibakezelés a makródban - természetesen láttam, hogy ott van az on error goto tovabb és a tovabb cimke - , sőt, még azt sem írtam, hogy nem jó a ws.match, hanem azt, hogy app.match esetén nem kell külön hibakezelést beépíteni a makróba.
Üdv.
Idézet a 23730-ból:
"A worksheetfunction.match helyett célszerűbb az application.match függvényt alkalmazni, (ezt én is egy másik topicban tanultam), mivel így más módon kell a hibakezeléssel foglalkozni." -
adam_
senior tag
válasz Delila_1 #23744 üzenetére
Köszönöm megnézem.
Ha mindig szűrök, a képletet is be kell írni újfent az E2 cellában. Az miért nem marad ott egyszerűen? Nekem egy olyan excel tábla kellene, ahol ezt nem kellene mindig beírni, csak ha az ember rászűr, magától kiszámolja az E2-be az összegüket.
[ Szerkesztve ]
-
plaschil
aktív tag
válasz Delila_1 #23758 üzenetére
Nem tudod véletlenül hogyan lehet hivatkozni a vbRed helyett arra, amikor a cellastílus "jó" vagy "rossz"?
Első gondolatom CV.Style de innen nincs tovább.i funkció.Nem akartam makrót írni emiatt, de úgy látszik kell
[ Szerkesztve ]
Creative G500 vezérlő panelt keresek// Hol vagy helyileg? - A kisszobába. // Szilvásbuktát, mert azt szeretem!
-
Xterms
tag
válasz Delila_1 #23779 üzenetére
Óó király vagy, kezd alakulni. Megoldható az, hogy a gomb egy kijelölt sort másoljon be A-ból, és ne mindenképp azt, amelyikkel egy sorban van?
m.zmrzlina: külön cellákban vannak, sőt, igazából egymás mellett is több cellányi tartalom lenne, csak ezt még nem mertem felhozni, majd napról napra bonyolítom, és eljutunk valahová remélem
A barátok olyanok, mint a hó…………ha rájuk pisilsz, eltűnnek.
-
róland
veterán
válasz Delila_1 #23799 üzenetére
Ha jól nézem akkor a következő részlet átalakítása akár nekem is jó lehet?
If Target.Column = 7 Then
sor = Target.Row
Application.EnableEvents = Fals
Range(Cells(sor, "B"), Cells(sor, "F")).Copy
Range("H18").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("B4").Select
Application.EnableEvents = True
End If[ Szerkesztve ]
http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!
-
-
róland
veterán
válasz Delila_1 #23806 üzenetére
Még nem. (Igaz ma még nem is próbáltam, talán majd később jut időm rá.) Igazából LibreOffice-ban kellene megoldanom, mert azt használjuk cégen belül. (Azért a segítségeddel szerintem menni fog.)
http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!
-
Xterms
tag
válasz Delila_1 #23804 üzenetére
Isten vagy! Viszont tovább szívnám a véredet ha nem haragszol
Ezt most én is elfelejtettem, nem direkt hagytam ki eddig.
Van egy késés oszlop is. Ezt ugye azután is lehet módosítani, hogy az adott sor már kikerült a B táblára, és akkor a táblán is frissül. És persze az is lehet, hogy sok ideig a táblán marad, míg az alant lévő sorok eltűnhetnek.Például:
A vonat, 12:00
B vonat, 12:05, késik 20 percet
C vonat, 12:15
D vonat, 12:20A vonat eltűnik ugye induláskor, B felülre kerül, viszont C és D is előbb fog indulni és eltűnni, mint B. Erre kéne kitalálni valamit, hogy a késők maradjanak meg, és utólag el lehessen tüntetni őket.
Meg különszedtem az érkezés-indulást, ha esetleg nem nagy gáz. Ne utálj nagyon.
[ Szerkesztve ]
A barátok olyanok, mint a hó…………ha rájuk pisilsz, eltűnnek.
-
Xterms
tag
válasz Delila_1 #23815 üzenetére
Azt a fájlt csak példának küldtem, hogy így képzeltem el, azt hittem azt fogod módosítani ami neked van meg. Nem direkt tettem át mindent máshová, nem is néztem igazából.
Nagyon jó lett, király vagy, hálás köszönetem!
A barátok olyanok, mint a hó…………ha rájuk pisilsz, eltűnnek.
-
m.zmrzlina
senior tag
válasz Delila_1 #23866 üzenetére
Én úgy értelmeztem, hogy littleNorbi-nak a C oszlopban lévő adatokra van szüksége. Ha így van akkor ez a fv kell: (Isten bocsássa meg nekem amit tettem )
Function CsakSzam(cella As Range)
Dim betu As Integer, szam As Integer
If IsNumeric(cella) Then
CsakSzam = cella
Exit Function
End If
For betu = 1 To Len(cella)
If IsNumeric(Mid(cella, betu, 1)) Then
szam = szam & Mid(cella, betu, 1)
'ElseIf Mid(cella, betu, 1) = "/" And IsNumeric(Mid(cella, betu + 1, 1)) Then
ElseIf Mid(cella, betu, 1) = "/" Or Mid(cella, betu, 1) = "-" Then
'CsakSzam = cella
CsakSzam = Left(cella, betu - 1) * 1
Exit Function
Else
CsakSzam = szam * 1
End If
Next
End Function -
Delila_1
Topikgazda
válasz Delila_1 #23872 üzenetére
Még valamit be kellett tenni a ciklusba.
For betu = 1 To Len(szoveg)
If IsNumeric(Mid(szoveg, betu, 1)) Then
szam = szam & Mid(szoveg, betu, 1)
ElseIf Mid(szoveg, betu, 1) = "/" And IsNumeric(Mid(szoveg, betu + 1, 1)) Then
If WorksheetFunction.IsEven(Left(szoveg, InStr(szoveg, "/") - 1) * 1) Then
ParosCsakSzam = szoveg
Exit Function
Else
ParosCsakSzam = ""
Exit Function
End If
ElseIf WorksheetFunction.IsEven(szam) Then
ParosCsakSzam = szam
Exit Function
Else
ParosCsakSzam = ""
Exit Function
End If
NextA 7/4-hez enélkül nullát ad.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
littleNorbi
aktív tag
válasz Delila_1 #23878 üzenetére
Sajnos ez nálam nem múködik, pedig bekapcsoltam a makrókat, meg minden, de az oszlopokban: "NAME?" van. Azt hiszem különben, hogy nem teljesen értetettek meg. Csináltam egy példát amiben kézzel rendeztem, hogy hogy is kellene kinéznie a számomra megfelelő végeredménynek. Tehát nekem az összes adatra szükségem van nem csak a házszám egyik felére, csak azért akarom szétválasztani 2 oszlopba, hogy könnyebben tudjam rendezni, majd rendezés után meg összefűzném a 2 oszlopot 1-be.
-
Geryson
addikt
válasz Delila_1 #23930 üzenetére
Ja, hogy ez tényleg nekem szólt? Azt hittem félre klikkeltél...
Hát most ezt így abszolúte nem vágom, ez egy üres Excel táblázat. Nem annyi az egész, hogy a képletet át kell írni? Olvasgatom és próbálgatom bőszen mind a KÖZÉP, mind SZÖVEG.KERES függvényeket, de egyenlőre nem jövök rá, hogy mit hogyan kell állítanom, hogy a második kötőjel utáni részt nézze.
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Geryson
addikt
-
Mittu88
senior tag
-
félisten
válasz Delila_1 #23965 üzenetére
"Meg egy olyant, amilyenre át kell alakítani személyenként."
Az a minta tábla, amit eddig is megosztott. Csak 1 név/ügyfél szerepel benne(az összes adat ahhoz az 1 ügyfélhez tarozik), ilyen táblákat kellene legyártani 100 darabot a 100 ügyfélről egyenként.[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
félisten
-
snorbi82
senior tag
válasz Delila_1 #23969 üzenetére
Nem kell szamolni semmit! Minden adat megvan nekem.
Az lenne a lenyeg, hogy adott tabla Minta Janosnak a 18 sorban van minden adata. En azt szeretnem valahogy, hogy egy ures tablazatban a a 18sorba emelje at J, K... Z ig... A 19es sorba AA, AB, 20. sor Ac....AF, 21. sorba stb...
A kovetkezo tablam ami lesz ugye 19. sorba lesz Minta Janosne, akit egy ures tablamba szeretnek atmenteni ugy, hogy:18sorba emelje at J, K... Z ig... A 19es sorba AA, AB, 20. sor Ac....AF, 21. sorba stb...
Nekem eleg lenne az elso nevre ezt megcsinalni es a tobbit en magam megcsinalom...
Olyan scriptet irtam .vbs-be, hogy letre hoz egy uj táblat es a fix adatokkal kitolti, de amit egy meg levo tablabol kell atemelnie azt nem tudom, hogy kell... Sajnos csak ennyit tudok.. Elnezest!
u.i: bocsanat telefonrol irtam...IPhone 15 Pro Max, Iphone 13
-
PETEE78
senior tag
válasz Delila_1 #23990 üzenetére
akkor ír x-et, ha mindegyik cella abban a sorban ugyan olyan értékű...
Én azt szerteném, ha egymás mögött lévő cellák adatai már előtte szerepeltek így a táblázatban, akkor jelölje x-el.
pl d5= zsiráf e5=lámpa F5=14 és ezek így már szerepeltek előtte a táblázatban, akkor az új sorba, ahol ismétlődtek, annak a végére rakjon egy x-et.
Bocs, ha érthetlen vagyokYou are being revived
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- Királyi menetben érkeznek a G.Skill új DDR5 memóriái
- Android alkalmazások - szoftver kibeszélő topik
- Még a nyár előtt megérkeznek a G.Skill új Ripjaws memóriái
- Sorozatok
- Külföldi rendelések: boltok, fizetés, postázás
- Itt van az eddig legjobban teljesítő kétfiókos NAS a TerraMastertől
- Computex 2024: gamer alaplap és „AI” PC az ECS-től
- Fürge M.2 2230-as SSD-vel jelentkezett az IRDM
- Milyen billentyűzetet vegyek?
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen