Ú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

Új hozzászólás Aktív témák