Hát azért a végeredmény, meg a korábbi elképzelés nem ugyanaz, kb annyi köze van a kettőnek egymáshoz, mint a kis, kék, gumigolyónak, a nagy, sárga fakockához...
Viszont egy képnek jobban örül(n)énk, mert így nem lehet biztosan tudni, hogy akkor hány cellába is kerültek az adatok, avagy üres cella is van közben stb (mert az adott példából, erre (is) lehet következtetni)

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)

Na, hát ennyit nem ér a dolog. Majd klikkelgetek inkább azt majd megoldom valahogy ezt az apró problémát.

[ Szerkesztve ]

Szia!
mivel ezek adatok ill. szöveg elég nehézkes úgy dolgozni vele, hogy a számodra megfelelő formátumba lehessen alakítani! Ki kell szedni belőle az időpontokat és venni a különbséget, majd ezt úgy beilleszteni az összefűzendő szövegbe, hogy csak az időponttal megnövelt rész legyen?!?! Nem lehetetlen de nagyon összetett képlet kell hozzá!

Bámulatos hol tart már a tudomány!

Sziasztok!

Kellene egy kis segítség. Meg lehet valahogy oldani, hogy az excel egy bizonyos szöveget egy akármekkora táblázatban mindig egy bizonyos mássá írjon át? Konkrétan azt szeretném, hogy mindig, ha "IGAZ" szerepel, 1-est tegyen a helyére, ha "NEM IGAZ", akkor 2-est.

köszi

You don't get it, son. This isn't a mudhole... It's an operating table. And I'm the surgeon. (Batman: The Dark Knight Returns)

ok, generál egy program egy .kml file-t, ami GPS koordinátákat ment, és időt.
Ebből szeretnék egy .srt file-t, vagyis egy feliratot egy videóhoz

Ctlr + h
?

HA függvényt alkalmazz!
=ha(feltétel;1;2)

Pl. =ha(a5>100;1;2)

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

Nekem a következő lenne a kérdésem:
van egy hasonló negyedfokú egyenletem,
y=0,1x^4-0,2x^3+0,3x^2-0,4x+1,5
Most azonban meg kellene fordítanom, és adott "y" érték mellett szeretném kiszámoltatni az "x"-et. Célérték keresővel teljesen jól működik is, de abban "y"-t csak értékként tudom megadni, nekem viszont több száz sorban van "y" változóm. Valaki tud megoldást?
Köszi a segítséget!

Bsasa

Rendezd az egyenletet x-re és már onnan adott a képlet!

Bámulatos hol tart már a tudomány!

Egy külső adatbázisból importált tömb fejlécét szeretném leellenőrizni, hogy megvan-e benne minden szükséges oszlop amiből a makrónak kell dolgoznia. (A külső adatbázisban kívánság szerint összeállítható az Excelbe exportálandó "étlap")

Mi a célszerű megoldás ebben az esetben?

=DARABHATÖBB()-bel próbálkozom, de nem sok sikerrel

=DARABHATÖBB(B10:M10;"=alma") ez működik és 1-et ad vissza ha benne van az alma

=DARABHATÖBB(B10:M10;"=alma";B10:M10;"=banán") ez 0-t ad vissza ha mindkettő benne van.
Valsz. nem értem ezt a fv-t

[ Szerkesztve ]

Ez viszont:

=DARABHATÖBB(B10:M10;"=alma";B11:M11;"=banán")

1-et ad vissza, ha mindkettő benne benne van a hozzá tartozó kritériumtartományban és 0-t ha bármelyik hiányzik.

Én viszont azt szeretném ha azonos kritériumtartománnyal is működne a képlet.

Sziasztok!

Most ismerkedem a VBA-val kíváncsiságból, de több programomra is hibát (1004 kódút) dob vissza, és fingom sincs, hogy miért.

pl.:
Sub formaz()
For i = 0 To 10 Step 1
Cells(i, 1).Value = i
Next
End Sub

Mi lehet a gond?

tely, baly, fojó, mennyél, mingyárt, telyföl, tolyás, malyd, kapú, egyenlőre, ejsd, jáccani, ahoz, fúj, hüje, muszály, alat, álok, lasan, fojtatás, ál, fontós, költsön, eggyüt, lyob (jobb?), mek, mongyak, milyért - !!! Tanúlyunk már meghejjessen irni... !!!

Mert a sor és oszlop paraméter Cells() függvényben nem lehet 0.
A munkalap A1 cellája a Cells(1,1)

[ 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)

Oh, hogy az a píííí. Sejtettem, hogy valami elképesztően triviális dolog lesz, de erre soha nem gondoltam volna. Ezer köszönet!

tely, baly, fojó, mennyél, mingyárt, telyföl, tolyás, malyd, kapú, egyenlőre, ejsd, jáccani, ahoz, fúj, hüje, muszály, alat, álok, lasan, fojtatás, ál, fontós, költsön, eggyüt, lyob (jobb?), mek, mongyak, milyért - !!! Tanúlyunk már meghejjessen irni... !!!

Ave Guruk,

Lenne egy igen "kellemes" feladatom....hatha valaki csipobol meg tudja oldani.
A lenyege, hogy egy bizonyos teruletet, (ami valojaban harom dimenzio) feltolteni kulonbozo dobozokkal....a feladat valodi haszna palettara valo epites megkonnyitese, es vizualis megjelenitese... Miert excel...mert ez all melohelyen rendelkezesre. Miert is kell, ez...mertha van tobb meretunk (esetenkent 20-30) ugy eleg sac/kb a tervezesunk

alap otlet....egyelore csak ket dimenzioban...az alapot tolteni.
egy negyzet 5cm-nek felel meg.....az alapteruletunk 315x245cm

-tehat csinalok egy negyzetracsot a tablazatbol (ez mar kesz)...

majd van adott arum...pl. 120*80cms (a magassag itt meg nem szamit) ...szeretnem ha ez az aru kiszinezne az altala elfoglalt teruletet mondjuk kekre, (nyilvan az automatizalas meg tovabb bonyolitanam, tehat a kiindulo pontjaten adom meg...kezdve a sarokbol akar A1-t kezdonek....tehat szinezzen A1-T1 (80cms), es A16 - T16 -ig (120cms)...)

meg lehet ezt oldani, vagy tul kesze-kusza, es nem lenne hasznalhato...?

Ki gépen száll fölébe.... SC2 nick: oxox character code: 698...dio3/ow: oxox#1525 + #21838

ha nem szint rak be hanem egy azonos karakter az sem rossz (bar a szin jobb)

Ki gépen száll fölébe.... SC2 nick: oxox character code: 698...dio3/ow: oxox#1525 + #21838

A makró törli az előző színezést, bekéri a szélességet, majd a magasságot, és ennek megfelelően színezi a területet.
Rosszul írtad, a 80 cm nem a T, hanem az X oszlopig tart.

Sub Ter()
Dim sz%, m%

Range("1:255").Interior.ColorIndex = -4142
sz% = Int(InputBox("Kérem a szélességet cm-ben", "Szélesség", Default) / 5)
m% = Int(InputBox("Kérem a magasságot cm-ben", "magasság", Default) / 5)
Range(Cells(1), Cells(m%, sz%)).Interior.ColorIndex = 5
End Sub

Kitehetsz hozzá egy gombot.

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Egy másik lehetséges megoldás: [link]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim MyWidth As Range
Dim MyHeight As Range

Set MyWidth = Range("AA1")
Set MyHeight = Range("AB1")

Application.ScreenUpdating = False

If Target.Address = MyWidth.Address Or Target.Address = MyHeight.Address Then
Range("A1:Z26").Clear
If MyWidth.Value Mod 5 Or MyHeight.Value Mod 5 Or IsEmpty(MyWidth.Value) Or IsEmpty(MyHeight.Value) Then
MsgBox ("Az alábbi hibák egyike lépett fel, kérem javítsa!" & vbCrLf & vbCrLf & _
"1. A szélesség és magasság értékének maradék nélkül oszthatónak kell lennie 5-el!" & vbCrLf & _
"2. A szélesség vagy magasság érték nincs megadva!")
Exit Sub
End If

For i = 0 To MyHeight.Value \ 5 - 1
For j = 0 To MyWidth.Value \ 5 - 1
Range("A1").Offset(i, j).Interior.ColorIndex = 3
Range("A1").Offset(i, j).Borders.ColorIndex = 0
Next j
Next i
End If

Application.ScreenUpdating = True

End Sub

[ Módosította: #65675776 ]

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)

elég brutálisan néznek ki....hétfőn nekiesek!

oxox

Ki gépen száll fölébe.... SC2 nick: oxox character code: 698...dio3/ow: oxox#1525 + #21838

Van egy csomó mappa a gépen amiknek a nevét be akarok másolni az excelbe. De másolás/beillesztés paranccsal sokáig tartani... Halottam egy olyan megoldásról ami listázza egy adott mappákban lévő mappák nevét... A futtatásba kellett valamit beírni... Valakinek ötlet?

Parancssorból megoldható, indítsd a parancssort (start, keresőbe cmd és enter, XP esetén start/futtatás cmd és enter), majd add ki az alábbi parancsot

dir c:\users /AD /B /S >d:\dirlist.txt

Ez a parancs a c:\users mappában található összes mappát és almappát kimenti a d:\dirlist.txt fájlba, amit utána megnyithatsz az Excel-el. Természetesen a saját igényed szerint módosítsd, hogy melyik mappáról és hova/milyen nevű fájlba mentse a mappalistát. a DIR parancsról a DIR /? segítségével kaphatsz több infót.

[ 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)

Köszi. így gondoltam Csak amikor kimenti a .txt-be akkor már nem ékezetesek a mappák... a parancssorban pedig azok voltak. Van erre megoldás?

De, ékezetesek azok, csak nem mindegy, hogy a nézőkében (amivel belenéztél a txt fájlba) ANSI avagy ASCII karakterkódolást használsz.

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)

Excelben A1-től kezdve beírja a kezdő könyvtár tartalmát.

Sub MappaLista()
Dim s As String, sor%
s = Dir("e:\eadat\*.*") 'Kezdő könyvtár
sor% = 1
Do While s <> ""
Cells(sor%, 1) = s
s = Dir()
sor% = sor% + 1
Loop
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm! Sok munkától kíméltél meg!

sziasztok,

szeretném a segítségeteket kérni, nagyon megkönnyítenétek a dolgom. sajnos nem igazán értek a makrókhoz, most szeretnék majd megismerkedni velük, de ez most elég sürgős lenne.

a lényeg az, hogy különböző elhelyezkedésű exel táblákból kellene egy bizonyos sémájú táblákat létrehoznom. arról van konkrétan szó hogy kapunk egy árlistát és ebből az árlistából szeretném kinyerni a név, ár, méret, szín adatokat és egy másik exel táblába lementeni. sajnos a forrásexelek nem egyezzen meg, tehát mindig másmilyen elhelyezkedésűek, jó volna ha ezt mindig be lehetne állítani hogy honnan is szeretnénk az adatot kinyerni, de ha ez nem lehetséges, vagy nagyon macerás akkor megoldanám függvényekkel. némely esetben mondjuk a név cella alá két cella egyesítését kellene beírni, amit szintén előkészíthetek egy összefűz függvénnyel ha szükséges.

nagyon nagyon hálás lennék ha tudnátok ebben segíteni nekem.

Ez a jelenség nem az Excel hibája, hanem a Chrome vagy Chrome motort használó (pl Comodo Dragon stb) böngészőké. Firefox vagy IE alatt nincs ilyen jelenség.

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)

példa file-t fel tudnál tölteni? este rá tudnék nézni

Itt egy példa:

ACO TopTek típusú burkolható fedlapok
Cikkszám Terméktípus Méret Anyag Súly (kg) NETTÓ LISTAÁR
SOLID - Fémfelületű, csúszásmentes fedlap
403860 ACO TopTek SOLID 300x300x59,5 Rozsdamentes 1 244 119 456
403861 ACO TopTek SOLID 450x450x59,5 Rozsdamentes 1 990 168 160
403862 ACO TopTek SOLID 500x500x59,5 Rozsdamentes 2 281 193 975
403863 ACO TopTek SOLID 400x600x59,5 Rozsdamentes 2 259 197 824
403864 ACO TopTek SOLID 635x635x59,5 Rozsdamentes 3 498 293 752
403865 ACO TopTek SOLID 600x800x59,5 Rozsdamentes 3 959 349 458
403866 ACO TopTek SOLID 600x1000x59,5 Rozsdamentes 4 666 398 461
403867 ACO TopTek SOLID 800x1000x59,5 Rozsdamentes 5 715 527 789
403868 ACO TopTek SOLID 300x300x59,5 Horganyzott 1 244 59 643

Például egy így kinéző árlistából kellene egy olyan makró amely készít egy cikkszám, név, mennyiség(értelem szerűen ez most hiányzik a listából), nettó ár oszlopokból álló új táblát. Annyi lenne még itt a plusz hogy a "SOLID - Fémfelületű, csúszásmentes fedlap" szöveget, a terméktípust, a méretet, az anyagot és a súly összefűzött szövegét kellene a név mező alá összefűzni, erre írtam hogy jó volna ha a makró megoldaná, de ha más nem összefűzném fügvénnyel. Nagyon nagyon megköszönném ha tudnál segíteni.

vagy itt egy másik példa:

Cikkszám Termék Bruttó fogy.ár (Ft
PRÉMIUM 18/10 mosogatótálak
1 ALÁÉPÍTHETŐ ROZSDAMENTES MOSOGATÓK
514050 BLANCOSTATURA 6-U 18/10 mos. exc. 217 900
514051 BLANCOSTATURA 6-U / W70 18/10 mos. exc. 294 900
514052 BLANCOSTATURA K 640-U 18/10 mos. exc. 264 900
514053 BLANCOSTATURA K 480-U / W70 18/10 mos. exc. 271 900
514054 BLANCOSTATURA K 550-U 18/10 mos. exc. 264 900
514055 BLANCOSTATURA 450-U 18/10 mos. exc. 140 900
514056 BLANCOSTATURA 160-U 18/10 mos. 101 900
514058 BLANCOSTATURA 450-T-U 18/10 mos. 74 900
512540 BLANCOSUPRA 400-F 18/10 mos. tart.nélk. megszűnt!
518213 BLANCOGAMMA 420-U fényes exc.nélk. 56 900
518214 BLANCOGAMMA 420-U fényes exc. 63 900
511024 BLANCOMIDI 315-U 18/10 mos. tart.nélk. megszűnt!
511025 BLANCOMIDI 315-U 18/10 mos. exc. megszűnt!
514239 BLANCOJOTA 160-U_B megszűnt!

ahol mondjuk ugyanazt a sablont kellene egy új munkalapra létrehozni amit előbb leírtam, annyi külömbséggel hogy itt a megszűnt feliratű sorokat figyelmen kívül kellene hagyni és a félkövérrel kiemelt "ALÁÉPÍTHETŐ ROZSDAMENTES MOSOGATÓK" szöveget kellene beszúrni a termék oszlop szövegei elé.

ha ezt le tudnád írni, ez picit talán egyszerűbb, az is nagyon remek lenne és nagyon-nagyon hálás volnék.

az mondjuk megoldható hogy a hozzáfűzendő dolgokat kijelöljem valamilyen kijelölőszínnel, ha úgy egyszerűbb. bocsi hogy ennyire részleteiben írom le csak közbe én is gondolkozom rajta hogyan kéne...

"Tán az számítana, hogy a gépemen megtalálható a Chrome, még ha nincs is megnyitva?.."
Ilyenről nem tudok. Ha van rá lehetőség, akkor küld el a mail-emre a táblázatot, elég ha csak egy oszlop marad benne, csak az olyan legyen, amiben gond van az adatokkal és akkor ránézek.

[ 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)

Igen, az van, ami várható volt, csak a drgonba illsztve dobja hozzá a space-t, IE/FF-nél nem.
A chrome topikban is érdeklődtem, ezt a pár hsz-t olvasd át, mert ott a Skype-t is megemlítették, mint lehetséges "bűnöst", hátha érintett vagy a dologban. Nálam nincs (és nem is volt soha) Skype, csak a Dragonba beillesztve van a jelenség, wordpad vagy word stb esetén nincs.

[ 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)

Igen, ebben teljesen igazad van, volt már ebből gond itt a topikban, olyan értelemben, hogy készítettem valakinek egy makrót, amiben ismétlődő karaktereket kellett lecserélni, köztük szóközöket is, pl 2/3/4 szóközt 1 szóközre és amikor FF-el illesztettem be a makrokódot, akkor az FF az egymás utáni szóközöket lecserélte " "-re, ami nyilván a makró hibás működéséhez vezetett. Ez már régebben volt, de azóta ügyelek arra, hogy makrót csak Dragon-ból illesszek be.

Az viszont "gond", hogy Nálad nem csak a böngészőbe csapódik hozzá a plusz space, hanem bármibe beillesztve, mert nálam nem, nálam csak a Dragon esetén, más alkalmazásoknál nem. Természetesen egyszerűbb ha erre a célra munkába fogod a FireFox-ot...

[ 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)

[link]

Remélem jól értettem meg a feladatot. Ilyesmire gondoltál? Sorokat ez még nem tud figyelmen kívül hagyni, csak üres sort rak be a kihagyandó sor helyébe.

[link]

Ez már sorokat is ki tud hagyni, összesen 100 sort tud kezelni, ha ez nem elég, akkor simán bővíthető, csak a kicsi függvények tömb részét kell kibővíteni.

azt hol lehet beállitani hogy excel fáljba megnyitott hyperlinkeket ne IE-vel nyissa hanem firefox vagy chrome-mal?

[link]

ps: nem próbáltam, de több helyen is írták, hogy műxik

VCP7-DCV, CCNA ||| Ami működik, ahhoz nem szabad hozzányúlni!

Wooow, nagyon frankó, este mindenképpen belemászok, mert picit árlistánként módosítani kell.

Esetleg zargathatlak a kérdéseimmel majd még?

Nagyon nagyon megköszönném.

thx a regbe ugyan nem piszkáltam de az egyik kommentekbe találtam egy sokkal egyszerübbet egyszerüen be kell állitani hogy windows alapértelmezésbe ne ie-t hanem chrome-t használjon

Üdv

indirekt függvénnyel hogyan tudok külső fájlra hivatkozni?

Nem kell ehhez külön program, csak egy makró, amit akkor futtatsz le manuálisan, miután kijelölted pl az egész munkalapot vagy annak egy részét stb.

Sub TRIM_em_ALL()

Dim MyCells As Range

For Each MyCells In Selection.Cells
MyCells = trim(MyCells)
Next MyCells

End Sub

Remélem működik, nem vagyok Excel közelben éppen...

[ 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)

Sziasztok!

Láma vagyok a témában, ezért segítségeteket kérném.
/Excel 2003 VBA./

Igyekszem megtanulni, de elakadtam. Az eddigi is innen onnan puskázva...
Bemásolom az eddigi kódot, a végére kikommenteltem, hogy mit kéne még tudnia.
Előre is köszönöm!!!

Private Sub CommandButton1_Click()

Dim forras_mlap As Worksheet
Dim cel_mlap As Worksheet
Dim forras_sor As Integer
Dim cel_sor As Integer
Dim eltolas As Integer



Set forras_mlap = Worksheets("Munka1")
Set cel_mlap = Worksheets("Munka2")

cel_sor = 2

Sheets("Munka2").Range("A2:BZ65536").ClearContents

For forras_sor = 2 To forras_mlap.UsedRange.Rows.Count
For eltolas = 0 To 18
cel_mlap.Range("M" & cel_sor).Value = forras_mlap.Range("A" & forras_sor).Value
cel_mlap.Range("N" & cel_sor).Value = forras_mlap.Range("B" & forras_sor).Offset(0, 1 * eltolas).Value
cel_mlap.Range("D" & cel_sor).Value = forras_mlap.Range("U" & forras_sor).Value
cel_mlap.Range("A" & cel_sor & ":C" & cel_sor).Value = forras_mlap.Range("V" & forras_sor & ":X" & forras_sor).Value
cel_mlap.Range("G" & cel_sor & ":H" & cel_sor).Value = forras_mlap.Range("Y" & forras_sor & ":Z" & forras_sor).Value
cel_mlap.Range("J" & cel_sor).Value = forras_mlap.Range("AA" & forras_sor).Value
cel_sor = cel_sor + 1
Next
Next





Sheets("Munka1").Range("B1:T1").Copy
Sheets("Munka2").Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Sheets("Munka2").Activate
Sheets("Munka2").Range("L2:L20").Copy
' ide kellene, hogy a Munka2-n jelölje ki L2 cellától lefelé az összes cellát addig a sorig,
' amig "A" oszlopban adatot talál. Ezt követően illesze be L2:L20-ból már másolt adatokat
' (vagy ha lehet, már előrébb kezdve a Munka1 B1:T1 cella adatait)
' végig a táblázat utolsó használt soráig, "A" oszlopot alapul véve.
' +++ jo lenne, ha ezt kovetoen "N" oszlop (fejléc van az 1. sorban) adatai alapján törölné azokat
' a sorokat, amik értéke "0", vagy üres


End Sub

Office 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!

Persze, kérdezz bátran. Nem igazán kommentáltam túl a dolgot, remélem sikerül így is megérteni a működését.