Keresés: - Microsoft Excel topic - Mobilarena Hozzászólások

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Hirdetés

!! SZERVERLEÁLLÁS, ADATVESZTÉS INFORMÁCIÓK !!

Téma összefoglaló

Utoljára frissítve: 2023-11-13 08:31

Mobilarena

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

#24654 Delila_1 veterán thee #24652

Új Válasz 2014-12-17 07:39:12 #24654
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz thee #24652 üzenetére

Szívesen.
#24650 Delila_1 veterán thee #24648

Új Válasz 2014-12-16 18:01:03 #24650
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz thee #24648 üzenetére

Van-e test.txt fájl a C-n?
If Len(Dir("c:\test.txt")) = 0 Then Msgbox "Nincs" Else Msgbox "Van" End If
#24480 thee csendes tag thee #24470

Új Válasz 2014-12-04 10:57:46 #24480
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

thee

csendes tag

válasz thee #24470 üzenetére

Nnno, a meglévő megoldást sikerült finomítani.
Nem a koordinátákat értékeit arányosítja, hanem a koordináták logaritmusát veszi alapul az arányosításhoz, így már a logaritmikus tengelyeken ábrázolt görbét sikerült viszonylag jól megközelíteni egy koordináták közötti egyenessel.
Ez már épp elfogadható megoldást ad, de a jó lenne csinálni vagy szerezni vmi free curve fit tool-t az Excelhez.
Szóval tippek, tapasztalatok továbbra is sokat segítenének.
#19734 Delila_1 veterán thee #19729

Új Válasz 2013-12-02 17:18:38 #19734
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz thee #19729 üzenetére

Újfent elnézést! Összekeverek itt kérdezőt és választ adót.
Tényleg semmi probléma nincs a makróddal. Te Do-Loop, én For-Next ciklussal oldottam meg.
#19731 Delila_1 veterán thee #19729

Új Válasz 2013-12-02 12:59:27 #19731
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz thee #19729 üzenetére

Nem értem, mi bajod xao megoldásával.
#19728 Delila_1 veterán thee #19711

Új Válasz 2013-12-02 10:16:29 #19728
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz thee #19711 üzenetére

Bocsi! Most vettem csak észre, hogy válaszoltál xao kérdésére. Mentségemre, hogy ő sem figyelt fel rá.
#19723 Delila_1 veterán thee #19722

Új Válasz 2013-12-02 09:05:58 #19723
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz thee #19722 üzenetére

Nincs mit.
#19718 Delila_1 veterán thee #19708

Új Válasz 2013-12-02 07:59:47 #19718
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Delila_1

veterán

válasz thee #19708 üzenetére

Worksheets("Munka1").Range(Cells(14,"G"),Cells(16,"G")) = ""
#19345 the radish senior tag thee #19344

Új Válasz 2013-10-20 12:43:43 #19345
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

the radish

senior tag

válasz thee #19344 üzenetére

thx
#14503 bugizozi őstag thee #14501

Új Válasz 2012-08-01 09:42:56 #14503
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

bugizozi

őstag

válasz thee #14501 üzenetére

Google, első találata...
Egyszerű de használható megoldás
On Error Resume Next MkDir "C:\mappanev" On Error Goto 0
#14502 lappy őstag thee #14501

Új Válasz 2012-08-01 08:59:43 #14502
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

lappy

őstag

válasz thee #14501 üzenetére

Szia!
A 2. kérdésre a [link] talán ezt kipróbálhatod
#13872 #90999040 törölt tag thee #13855

Új Válasz 2012-05-27 16:41:51 #13872
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

#90999040

törölt tag

válasz thee #13855 üzenetére

Ez talán jó...
Range("a4").Value = Right(InpFileName, Len(InpFileName) - InStrRev(InpFileName, "\"))
Esetleg lehet még split() és az utolsó elem...
#13871 VANESSZA1 őstag thee #13869

Új Válasz 2012-05-27 15:50:12 #13871
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

VANESSZA1

őstag

válasz thee #13869 üzenetére

köszönöm a segítséged.
#13870 #90999040 törölt tag thee #13869

Új Válasz 2012-05-27 13:53:59 #13870
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

#90999040

törölt tag

válasz thee #13869 üzenetére

Igen, így már a D-F oszlopokban levő VAGY-ok kiszűrik.
#13867 #90999040 törölt tag thee #13861

Új Válasz 2012-05-27 13:07:43 #13867
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

#90999040

törölt tag

válasz thee #13861 üzenetére

Működik, de az ismétlődést ez sem szűri ki.
Kipróbáltam úgy, hogy a "K7"-be ezt írtam:
=HA(J6=K6;"NNNNNNNNNNNNNNNNNNNNNNNN";"")
Majd ezt ctrl+c és ctrl+v-vel átmásoltam a L7 : N7-be, majd többszöri F9 után jönnek az "N"-ek
#13864 VANESSZA1 őstag thee #13863

Új Válasz 2012-05-27 13:00:24 #13864
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

VANESSZA1

őstag

válasz thee #13863 üzenetére

Igen most már a második nálam is működik Ez csak akkor generál új számokat,ha az Excelt bezárjuk és újra kinyitjuk?
Vagy van más módja is ha újra akarom generáltatni?
#13862 Fire/SOUL/CD félisten thee #13861

Új Válasz 2012-05-27 12:48:42 #13862
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz thee #13861 üzenetére

Nem tudom letölteni, a lassú letöltés gombra kattintás után, azt írja nem találja a megadott fájlt...
#13859 VANESSZA1 őstag thee #13858

Új Válasz 2012-05-27 12:06:59 #13859
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

VANESSZA1

őstag

válasz thee #13858 üzenetére

Köszi, de
nálam mindenhol #NÉV? jelenik meg..
#13811 concret_hp addikt thee #13805

Új Válasz 2012-05-23 21:47:01 #13811
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

concret_hp

addikt

válasz thee #13805 üzenetére

hát köszi, lehet hogy egy kicsit félreérthetően írtam, a lényeg, hogy nem tudom előre, hogy hol lesznek a nullák (vagy ami épp a feltételem) az A oszlopban leírt példámban.
#13794 Sziszmisz csendes tag thee #13791

Új Válasz 2012-05-22 12:36:00 #13794
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Sziszmisz

csendes tag

válasz thee #13791 üzenetére

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.
#13791 thee csendes tag thee #13790

Új Válasz 2012-05-22 07:05:14 #13791
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

thee

csendes tag

válasz thee #13790 üzenetére

[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.
#13781 Sziszmisz csendes tag thee #13779

Új Válasz 2012-05-21 15:45:44 #13781
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Sziszmisz

csendes tag

válasz thee #13779 üzenetére

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.
#13780 Sziszmisz csendes tag thee #13779

Új Válasz 2012-05-21 15:25:48 #13780
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Sziszmisz

csendes tag

válasz thee #13779 üzenetére

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.
#13665 thee csendes tag thee #13664

Új Válasz 2012-05-08 07:25:28 #13665
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

thee

csendes tag

válasz thee #13664 üzenetére

meglett a megoldás:
Private Sub CommandButton2_Click() Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\kiskutya.txt", 1, 0) Worksheets("Munka1").Range("A15") = f.ReadLine Worksheets("Munka1").Range("A16") = f.ReadLine f.Close End Sub
#13552 Fire/SOUL/CD félisten thee #13551

Új Válasz 2012-04-23 20:44:11 #13552
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz thee #13551 üzenetére

Range("A1") = Application.WorksheetFunction.Rept("Ha", 3)
#13541 Fire/SOUL/CD félisten thee #13540

Új Válasz 2012-04-23 12:52:17 #13541
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Fire/SOUL/CD

félisten

válasz thee #13540 üzenetére

Range("B11:K11").Select valtozo = 5010 Selection.AutoFill Destination:=Range("B11:K" & valtozo), Type:=xlFillDefault