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

• mukibuci nagyúr

  #29500 2015-11-14 12:39:51

  Új Válasz

  Ú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

  

  mukibuci

  nagyúr

  Van egy ilyen nem túl elegáns képletem:

  =HA(HIBÁS(FKERES(D20;adattabla!$L$2:$M$10;2))=1;0;FKERES(D20;adattabla!$L$2:$M$10;2))

  itt a D20 cellában egy legördülő listában kell kiválasztani az értéket. Alapból nem szerepel semmi a cellában. kamu libre office-ban simán 0 volt a kapott érték, azonban ms office #hiányzik-ot dob, mert "hiba, nincs elérhető érték". hogyan lehet ezt megoldani?

• poffsoft veterán

  #29499

  #29496 lenkei83

  2015-11-13 19:44:57

  Új Válasz

  Ú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

  

  poffsoft

  veterán

  #29496 lenkei83

  bináris ikon, kisebb méret.
  mást nem tapasztaltam...
  nem is igazán értem, mi az eltérés...

• poffsoft veterán

  #29498

  #29490 Belnir

  2015-11-13 19:43:14

  Új Válasz

  Ú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

  

  poffsoft

  veterán

  #29490 Belnir

  használd egészséggel!

  észrevettem, de későn, de ügyesen megoldottad!
  :-)

• twingos tag

  #29497

  #29493 Delila_1

  2015-11-13 15:13:31

  Új Válasz

  Ú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

  

  twingos

  tag

  #29493 Delila_1

  Szia,

  Nagyon köszönöm

  üdv

• lenkei83 tag

  #29496 2015-11-13 13:59:23

  Új Válasz

  Ú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

  

  lenkei83

  tag

  Sziasztok!

  Van esetleg valakinek valami infója arról, hogy az XLSB file formátumnak van e valami hátránya XLSX vagy XLSM-hez képest?

  Köszi
  P.

• lenkei83 tag

  #29495

  #29491 sedyke

  2015-11-13 13:13:31

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #29491 sedyke

  Feltöltöd a táblát? Így elég nehéz megmondani, hogy mi a probléma.
  Így ránézésre azt mondom, hogy az xx = xx + 51 igazából xx = xx + 1 kellene hogy legyen, de nyilván ez táblától függ....

• sebi91 csendes tag

  #29494 2015-11-13 11:55:23

  Új Válasz

  Ú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

  

  sebi91

  csendes tag

  2007-et használok
  Olyan problémám lenne hogy az excelbe importált adatoknál az egyik oszlopban a költségeket amik nagyobbak mint 999 azokat ilyen formátumban rakja be a cella bal oldalához igazítva 1 000,00 ( gondolom szövegként kezeli). A problémám az hogy a CSERE függvénnyel mindig csak egy intervallumon belül tudok cserélni. A 10 000,00 nél vagy a nagyobb értékeknél már nem tudok az általam létrehozott képlettel cserélni. =HA(Y2>-1;Y2;CSERE(J2;2;1;""))

  Ebben a képletben a Y2 oszlop adatait HAHIBA fügvénnyel adtam meg úgy hogy ha hibát talál a kerekítés adataiban ami az X oszlopban vannak akkor -5 öt írjon be helyette. Így a szóközös értékeknél -5-ötír ki. Így az egyik intervallumon ki tudom cseréltetni a CSERE függvénnyel. A kérdésem hogy minden intervallumon ami a milliónál vagy a százezreknél jelentkezik azt hogyan tudnám megoldani vagy van-e egyszerűbb megoldás is erre?
  (próbáltam *1,számformátummá alakítani,)

  Előre is köszönöm a segítséget.

• Delila_1 veterán

  #29493

  #29489 twingos

  2015-11-13 11:12:40

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29489 twingos

  Ha csak ez a 3 betűcsoportod van, akkor a képlet
  =HA(BAL(A1;3)="abc";"alma";HA(BAL(A1;3)="def";"körte";"banán"))

• bara17 tag

  #29492 2015-11-13 10:51:13

  Új Válasz

  Ú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

  

  bara17

  tag

  Sziasztok!

  Kimutatásban, hogyan tudom beállítani azt, hogy a hónapok nevei ne ábc sorrendben jelenjenek meg?

  Köszönöm előre is.

• sedyke tag

  #29491 2015-11-13 10:42:33

  Új Válasz

  Ú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

  

  sedyke

  tag

  Sziasztok!

  Van egy alabbi makrom, amihez meg anno itt kaptam segitseget.
  Lenyegeben a kulonbozo munkalapokon levo koltsegszamitasaimbol kereski ki a termekkodokat es sorakoztatja fel egy oszlopban a munkaful nevevel, hogy kesobb egy osszesito tablaban csak a termekkodok kelljen beirnom es fuggvenyekkel kikeresi az adatokat.
  Amikor ezt a makrot valaki megirta nekem, akkor mukodott is. Ma ujrafuttattam, hogy az uj termekek is bekeruljenek a listaba, amiket az elmult honapokban csinaltam, viszont nem adja oket hozza a listahoz.
  Vajon mi lehet az oka? Elore is koszi a segitseget.

  Sub termeklistas()
  Dim sh As Worksheet, ws As Worksheet, xx As Integer, yy As Integer
  Set ws = Sheets("Sheet1")
  yy = 1
  For Each sh In Worksheets
  xx = 1
  If sh.Name <> ws.Name Then
  Do While True
  If sh.Cells(xx, "B").Value = "" Then Exit Do
  ws.Cells(yy, "N").Value = sh.Cells(xx, "B").Value
  ws.Cells(yy, "O").Value = sh.Name & "!"
  ws.Cells(yy, "P").Value = xx - 1
  xx = xx + 51
  yy = yy + 1
  Loop
  End If
  Next
  End Sub

• Belnir csendes tag

  #29490

  #29483 poffsoft

  2015-11-13 09:47:17

  Új Válasz

  Ú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

  

  Belnir

  csendes tag

  #29483 poffsoft

  Királyság, nagyon jó! Annyi észrevételem lenne, hogy egyből meg is akadt a kicsike. Alul duplázva maradt meg a

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  aktualis = ActiveCell.Value
  End Sub

  De a kódot köszönöm, nagyon nagy segítséget kaptam!

• twingos tag

  #29489

  #29487 Delila_1

  2015-11-13 07:52:57

  Új Válasz

  Ú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

  

  twingos

  tag

  #29487 Delila_1

  Szia,

  Köszönöm a választ.
  Szerintem sikerült ismét nem jól fogalmaznom.
  Tehát az A oszlop a fix. Ha ott megtalálja az ABC kezdetű szót akkor B oszlopba írja ,hogy ALMA.
  Tehát a B oszlop üres, és oda kellene beírnia , hogy ALMA.

  Bízok benne ,hogy így érthetőbb.
  Ismét nagyon köszönöm a fáradozásodat!

  üdv

• m.zmrzlina senior tag

  #29488

  #29484 Fferi50

  2015-11-13 06:53:23

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29484 Fferi50

  vagy a tartományt e nélkül definiálod
  Ez ezt a hibát generálná amit /számomra/ bonyolultabb lenne eliminálni mint megkerülni a problémát.

  Helyette....
  Mi lenne, ha a keresésnél kihagynád az első oszlop celláit Illetve minden oszlop első celláját.
  Ez lett a megoldás.
  Köszi.

• Delila_1 veterán

  #29487

  #29485 twingos

  2015-11-13 06:36:41

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29485 twingos

  =FKERES(BAL(A1;3) & "*";A:B;2;0)

• szatocs1981 aktív tag

  #29486

  #29482 szatocs1981

  2015-11-13 06:36:41

  Új Válasz

  Ú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

  

  szatocs1981

  aktív tag

  #29482 szatocs1981

  Fejléccel:

  Sub Makro1()
  
  Worksheets(1).Select
  Sheets.Add
  Worksheets(1).Name = "Végeredmény"
  
  WS_Count = ActiveWorkbook.Worksheets.Count
  
  Call TiliToli("A", "E", 2, 0)
  Call TiliToli("C", "F", WS_Count, 40)
  
  End Sub
  
  Sub TiliToli(Spalte1, Spalte2, ettol, eddig)
  
  For i = 2 To ettol
  
  utolso = Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
  
  For szorzo = 0 To eddig Step 8
  
  For sor = 1 To 8
  
  ujsor = sor + szorzo
  Worksheets(1).Cells(utolso + 1, sor) = Worksheets(i).Cells(ujsor, Spalte1).Value
  
  If sor <> 1 Then
  Worksheets(1).Cells(utolso + 1, sor + 7) = Worksheets(i).Cells(ujsor, Spalte2).Value
  End If
  
  Next sor
  
  utolso = utolso + 1
  
  Next szorzo
  
  Next i
  
  End Sub

• twingos tag

  #29485 2015-11-12 20:22:00

  Új Válasz

  Ú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

  

  twingos

  tag

  Sziasztok,

  Segítséget szeretnék ismét.
  Mellékelek egy képet is mellé.
  A oszlóban lévő adatok első 3 karakterét figyelve, írja B oszlopba az általam definiált értéket értéket. (Ahol találat van abc-re A oszlopban ott írja B oszlopba,hogy alma)
  Próbáltam érthetően fogalmazni.
  Megoldható ez függvénnyel?

  

  Köszönöm a segítséget

  üdv

• Fferi50 Topikgazda

  #29484

  #29470 m.zmrzlina

  2015-11-12 19:12:25

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #29470 m.zmrzlina

  Szia!

  Mi lenne, ha a keresésnél kihagynád az első oszlop celláit. (Ez megoldható vba-ban offset metódus használatával, vagy a tartományt e nélkül definiálod - a tartomány előtt levő cellára is lehet hivatkozni (!) így pl. tartomány(xsor,0) a tartomány x-edik sorában a tartomány előtt levő cellát adja meg.)

  Üdv.

• poffsoft veterán

  #29483

  #29469 Belnir

  2015-11-12 17:37:06

  Új Válasz

  Ú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

  

  poffsoft

  veterán

  #29469 Belnir

  Option Explicit
  
  Public aktualis
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lastrow As Long
  Dim akt_lap As String: akt_lap = ActiveSheet.Name
  Dim fso As Object
  Dim logfile As Object
  
  ' If Target.Count <> 1 Then Exit Sub
  ' If aktualis = Target.Value Then Exit Sub
  Application.ScreenUpdating = False
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set logfile = fso.OpenTextFile("\eleresi_ut\log.txt", 8, True)
  logfile.WriteLine ("VÁLTOZTAT" & " - " & Format(Now, "YYYY.MM.DD hh:mm:ss") & " - " & Environ$("username") & " - " & Application.UserName & " - " & Environ$("computername") & " - " & Target.Parent.Name & " - " & Target.Address & " - " & aktualis & " - " & Target(1, 1).Value & " -+")
  logfile.Close
  Set logfile = Nothing
  Set fso = Nothing
  
  Application.ScreenUpdating = True
  End Sub
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  aktualis = ActiveCell.Value
  End Sub
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  aktualis = ActiveCell.Value
  End Sub

• szatocs1981 aktív tag

  #29482

  #29481 Roxy27

  2015-11-12 16:05:17

  Új Válasz

  Ú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

  

  szatocs1981

  aktív tag

  #29481 Roxy27

  Fejléc és hibakezelés még nincs benne, próbáld ki:
  Töröld a "Végeredmény" nevü fület, mielött futtatod a makrót!

  A makró létrehoz az elsö helyen egy "Végeredmény" nevü lapot, majd oda bemásolja az összes többi létezö lapról az adatokat, a megadot szabály szerint!

  Sub Makro1()
  
  
  Worksheets(1).Select
  Sheets.Add
  Worksheets(1).Name = "Végeredmény"
  
  WS_Count = ActiveWorkbook.Worksheets.Count
  
  For i = 2 To WS_Count
  utolso = Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
  
  For szorzo = 0 To 40 Step 8
  
  For sor = 1 To 8
  ujsor = sor + szorzo
  Worksheets(1).Cells(utolso + 1, sor) = Worksheets(i).Cells(ujsor, "C").Value
  
  
  
  If sor <> 1 Then
  Worksheets(1).Cells(utolso + 1, sor + 7) = Worksheets(i).Cells(ujsor, "F").Value
  
  End If
  
  Next sor
  utolso = utolso + 1
  Next szorzo
  
  
  Next i
  
  End Sub

• Roxy27 tag

  #29481

  #29480 szatocs1981

  2015-11-12 14:59:13

  Új Válasz

  Ú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

  

  Roxy27

  tag

  #29480 szatocs1981

  

• szatocs1981 aktív tag

  #29480

  #29479 Roxy27

  2015-11-12 14:50:34

  Új Válasz

  Ú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

  

  szatocs1981

  aktív tag

  #29479 Roxy27

  Amint lesz idöm, megírom!

• Roxy27 tag

  #29479

  #29477 szatocs1981

  2015-11-12 13:47:54

  Új Válasz

  Ú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

  

  Roxy27

  tag

  #29477 szatocs1981

  Na arra közben rájöttem, hogy mit kell megváltoztatni, hogy végignézze a teljes lapot:
  For szorzo = 0 To 40 Step 8
  Már csak a fejléc hiányzik, meg hogy gombnyomásra az összes sheet kigyüjtődjön automatikusan.

• Roxy27 tag

  #29478

  #29477 szatocs1981

  2015-11-12 13:26:42

  Új Válasz

  Ú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

  

  Roxy27

  tag

  #29477 szatocs1981

  Ja már értem miért... ugye írtam, hogy összesen 48 sor van egy lapon (de én úgy csináltam printscreen-t, hogy 24 látszódik, hogy még olvasható legyen... nem fér egy oldalra és nem akartam kicsinyíteni)
  Így igazad van, a 45db-ot kigyűjti... csak 90 kellene Pont mégegyszer ennyi azaz összesen 6 component és az adatai vannak 1 lapon.
  Nem sürgős azért... ha este vagy holnap van időd/kedved, úgy is bőven jó. Csak tényleg úgy lenne értelme, hogy egy makró az összeset egybe összegyűjti automatikusan.
  Köszi

• szatocs1981 aktív tag

  #29477

  #29475 Roxy27

  2015-11-12 12:32:25

  Új Válasz

  Ú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

  

  szatocs1981

  aktív tag

  #29475 Roxy27

  Nem nagy kérés, de most per-pill sajnos nincs idöm tovább írni.

  PS: amúgy nálam kigyüjti az adatokat az aktív lapon végig. Egy lapról 45 db-ot

• Roxy27 tag

  #29476

  #29475 Roxy27

  2015-11-12 12:18:05

  Új Válasz

  Ú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

  

  Roxy27

  tag

  #29475 Roxy27

  Ha dobsz egy mailcímet (privibe)... átküldöm az excel-t... ha az segít

• Roxy27 tag

  #29475

  #29474 szatocs1981

  2015-11-12 12:17:02

  Új Válasz

  Ú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

  

  Roxy27

  tag

  #29474 szatocs1981

  Na most már dolgozik, de még nem okés...
  minden sheet-ről csak az első 3 componest gyűjti...
  nagy kérés lenne, ha egyszerre összeszedné az összes lapról automatikusan?
  (ja és az első lapról mondjuk betenné a felső sorba a megnevezéseket...)

  Ez a későbbiekben napi feladat lenne, és jó lenne, ha gombnyomásra működne... remélem nem vagyok pofátlan
  Előre is nagyon köszi a segítséged!!!!

• szatocs1981 aktív tag

  #29474

  #29473 Roxy27

  2015-11-12 12:09:03

  Új Válasz

  Ú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

  

  szatocs1981

  aktív tag

  #29473 Roxy27

  Közben átírtam, mert nem volt jó:

  Sub Makro1()
  
  utolso = Sheets("Végeredmény").Cells(Rows.Count, "A").End(xlUp).Row
  
  For szorzo = 0 To 16 Step 8
  
  For sor = 1 To 8
  ujsor = sor + szorzo
  Sheets("Végeredmény").Cells(utolso + 1, sor) = ActiveSheet.Cells(ujsor, "C").Value
  
  ActiveSheet.Cells(ujsor, "C").Select
  
  If sor <> 1 Then
  Sheets("Végeredmény").Cells(utolso + 1, sor + 7) = ActiveSheet.Cells(ujsor, "F").Value
  ActiveSheet.Cells(ujsor, "F").Select
  End If
  
  Next sor
  utolso = utolso + 1
  Next szorzo
  
  End Sub

  Page1- lapra "rámész" és futtatod a makrót!

• Roxy27 tag

  #29473

  #29472 szatocs1981

  2015-11-12 11:59:41

  Új Válasz

  Ú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

  

  Roxy27

  tag

  #29472 szatocs1981

  Köszi,
  beállítottam a Makrót... elindítom, látszik, hogy dolgozik, de nem kerül semmi a "Végeredmény" sheet-re.
  Ja, és mit is jelent, hogy egyesével aktiváljam?
  Sajnos nem igazán értek hozzá...
  Köszi

• szatocs1981 aktív tag

  #29472

  #29471 Roxy27

  2015-11-12 11:17:45

  Új Válasz

  Ú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

  

  szatocs1981

  aktív tag

  #29471 Roxy27

  Ezt lefuttatod 36x ( a lapokat egyesével aktiváld):
  Idömböl most ennyi futotta erre.

  Sub Makro1()
  
  utolso = Sheets("Végeredmény").Cells(Rows.Count, "A").End(xlUp).Row
  
  For szorzo = 1 To 3
  
  For sor = 1 To 8
  Sheets("Végeredmény").Cells(utolso + 1, sor) = ActiveSheet.Cells(sor, "C").Value
  
  If sor <> 1 Then
  
  Sheets("Végeredmény").Cells(utolso + 1, sor + 7) = ActiveSheet.Cells(sor, "F").Value
  End If
  
  Next sor
  utolso = utolso + 1
  Next szorzo
  
  End Sub

• Roxy27 tag

  #29471 2015-11-12 10:15:02

  Új Válasz

  Ú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

  

  Roxy27

  tag

  Sziasztok,
  kellene egy kis segítség a következő témában:
  van egy termelőgépi program, ahonnan mindenféle statisztikai adatokat szeretnénk feldolgozni. A baj az, hogy ebből a részéből nem lehet exportálni. Viszont pdf creatorba tudjuk nyomtatni, onnan pedig egy excel-be konvertálni. Így viszont cseppet szétkapja a formátumot. Vissza kellene rendezni, de "gyorsan"
  Az excel úgy néz ki, hogy laponként rendez:
  
  Minden fülön 6 componet és a látható módon a hozzá tartozó adatok. Ez összesen laponként 48 sor.
  Nekünk viszont egy lapra kellene szedetni, ebben a formában:
  
  Tudna erre valaki gyors megoldást?

  (összesen jelenleg 36db fül van... (esetleg ezt a későbbiekben állítani kellene, vagy tudnia kellene, hogy hány lap van összesen mert ez változó...)

  Előre is köszi!!!!

• m.zmrzlina senior tag

  #29470

  #29440 Fferi50

  2015-11-12 09:45:51

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29440 Fferi50

  Ismét ez a téma

  Azt sikerült megállapítani, hogy a kb 50 tartományból aminek a

  Set rng_Akioszt = ws_Kabelo.range(str_Akioszt & "1:" & str_Akioszt & int_usor)

  sor a program futása során egy ciklus értéket ad két olyan esetben akad ki, ahol az rng_Akioszt(1,1) értéke egy 256 karakternél hosszabb karaktersorozat. Valamint bármikor reprodukálni tudom a hibát, ha bármely tartomány (1,1)-es cellájában előállítom a fenti feltételt. Gondolom itt a fv valamilyen korlátjába ütközik a feldolgozás.

  Az lenne a feladat, hogy ezekben a tartományokban határozzuk meg a legkisebb és a legnagyobb értékeket amik aztán egy számlálós ciklus -tól -ig határai lesznek. Nem feltétlen ragaszkodom munkalapfüggvényes megoldáshoz, megelégszem a legegyszerűbbel is.

• Belnir csendes tag

  #29469

  #29468 poffsoft

  2015-11-12 09:27:17

  Új Válasz

  Ú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

  

  Belnir

  csendes tag

  #29468 poffsoft

  Az if aktualis vizsgálat nem kell, csak fogalmam sincs, hogy mire vonatkozik...
  Gyakorlatilag próbálkozom, az általatok adott kódokat fabrikáltam össze, ez működött, de nem 100%-osan. Szóval fogalmam sincs, mi a fölös sor és mi hiányzik.
  plusz ha valaki több cellát módosít, töröl egyszerre, arról sincs logod sajnos igen, ez így van.
  if target.count
  helyett az értéket csak az 1. cellában nézd:
  target(1,1).value
  ?
  a writeline végére még beszúrnék egy lezáró "-" -t, hogy látsszon az üres érték is (ami a törlés).
  Megtennéd, hogy kipucolod a szemetet és pótlod ami szükséges? Csak még nagyobb katyvaszt csinálnék

  Köszi!

• poffsoft veterán

  #29468

  #29454 Belnir

  2015-11-11 19:33:46

  Új Válasz

  Ú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

  

  poffsoft

  veterán

  #29454 Belnir

  az if aktualis=
  vizsgàlat miért kell?
  ha a ws_change eventben vagy, tuti, hogy szerkesztettek, logold.
  plusz ha valaki több cellát módosít, töröl egyszerre, arról sincs logod.
  esetleg az
  if target.count
  helyett az értéket csak az 1. cellában nézd:
  target(1,1).value
  ?
  a writeline végére még beszúrnék egy lezáró "-" -t, hogy látsszon az üres érték is (ami a törlés).

• 4ron senior tag

  #29467

  #29465 Delila_1

  2015-11-11 18:27:17

  Új Válasz

  Ú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

  

  4ron

  senior tag

  #29465 Delila_1

  Gondolkodtam egy kicsit. Vegyük az 1951-1967 tartományt, ez esetben Darabteli függvénnyel szerintem így kellene megszámolni a tartományba tartozó éveket:

  =DARABTELI(A1:A188;">=1951")-DARABTELI(A1:A188;">=1967")

• 4ron senior tag

  #29466

  #29465 Delila_1

  2015-11-11 18:09:58

  Új Válasz

  Ú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

  

  4ron

  senior tag

  #29465 Delila_1

  Köszi. De Darabtelivel kell mindenképp megoldani. Igazából nem nekem kell, hanem a barátnőmnek és nem tudok rájönni, hogyan.

• Delila_1 veterán

  #29465

  #29464 4ron

  2015-11-11 18:06:09

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29464 4ron

  A D2 cella képlete

  =DARABHATÖBB(A:A;">=" & BAL(C2;4);A:A;"<" & JOBB(C2;4))

• 4ron senior tag

  #29464 2015-11-11 17:25:56

  Új Válasz

  Ú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

  

  4ron

  senior tag

  Sziasztok!

  Meg van adva 188 darab évszám, X-től Y-ig. A feladat az, hogy a megadott intervallumokon belül megszámoljuk, hány darab évszám felel meg a feltételeknek (minél egyszerűbb módszerrel). A lényeg az, hogy a Darabteli függvénnyel kell megoldani. Mutatnék egy képet róla, mire is gondolok:
  

  Valaki tudna segíteni?

• PETEE78 senior tag

  #29463 2015-11-11 15:57:08

  Új Válasz

  Ú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

  

  PETEE78

  senior tag

  A dir megoldotta a kérdést
  Köszi mindenkinek!

  mystring = Format(Now(), "yyyymmdd")
  sdateform = Mid(mystring, 3)

  filename = Dir("X:\Kimeno\221_ALMA_20" & sdateform & "*.*")
  oldPath = "X:\Kimeno\"
  newPath = "C:\probakonyvtar\" & sdateform
  Set fs = CreateObject("Scripting.FileSystemObject")
  fs.CopyFile oldPath & "\" & filename, newPath & "\" & filename
  Set fs = Nothing

• PETEE78 senior tag

  #29462 2015-11-11 15:06:52

  Új Válasz

  Ú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

  

  PETEE78

  senior tag

  köszi mindenkinek akkor próbálgatom...
  

• m.zmrzlina senior tag

  #29461

  #29455 PETEE78

  2015-11-11 14:02:50

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29455 PETEE78

  Esetleg használd a Left() VBA függvényt.

  If Left(filename,19) ="ennyitismerekbelole" Then
  .
  ' csináljonvelevalamit
  
  End If

  Ez persze csak akkor működik ha a fájlnév első (esetünkben) 19 karaktere egyértelműen meghatározza a fájlt.

• Fferi50 Topikgazda

  #29460

  #29457 PETEE78

  2015-11-11 14:01:06

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #29457 PETEE78

  Szia!

  A csillag karakterrel keresésben operálhatsz.

  Próbáld meg a dir() függvénnyel megnézni, hogy milyen fájlok vannak a keresett helyen:
  filename= dir("221_ALMA_20" & sdateform & "*.csv")
  Ide beírhatod hozzá az elérési utat is, ha szükséges.
  Ha filename="" akkor nem talált olyan fájlt, ami megfelelt a keresési feltételeknek - vagy nem abban a könyvtárban kerestél, amiben a fájl van, vagy egyáltalán nincs ilyen fájl.

  Utána a filename értékét - ha szükséges, kiegészítve az elérési úttal - már használhatod a megnyitáshoz, mert ott már nem lesznek benne csillag karakterek, hanem konkrét fájlnevet fog tartalmazni.

  Üdv.

• szatocs1981 aktív tag

  #29459

  #29455 PETEE78

  2015-11-11 13:50:13

  Új Válasz

  Ú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

  

  szatocs1981

  aktív tag

  #29455 PETEE78

  "dir" parancsot kell használni és akkor a *-ot úgy értelmezi, ahogy neked kell, máshogy szvsz nem fog menni.

  Példa:
  datei = Dir(pfad & "221_ALMA_20" & sdateform & "*.csv")

• Polllen félisten

  #29458

  #29455 PETEE78

  2015-11-11 13:48:43

  Új Válasz

  Ú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

  

  Polllen

  félisten

  #29455 PETEE78

  Itt van egy példa, hogyan tudod kilistázni, mi van az adott könyvtárban.

  Innen már csak a logika kell, ami alapján kiválasztod melyik a jó.

• PETEE78 senior tag

  #29457

  #29456 Belnir

  2015-11-11 13:30:45

  Új Válasz

  Ú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

  

  PETEE78

  senior tag

  #29456 Belnir

  Én is próbálgattam a csillagot, de azt csillagnak is értelmezte

  filename = "221_ALMA_20" & sdateform & "*.csv"

• Belnir csendes tag

  #29456

  #29455 PETEE78

  2015-11-11 13:25:12

  Új Válasz

  Ú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

  

  Belnir

  csendes tag

  #29455 PETEE78

  Szerintem *-gal. Azaz
  filename = "221_ALMA_*" & sdateform &".csv"
  Egy próbát megér, ha szar, dobd ki

• PETEE78 senior tag

  #29455 2015-11-11 11:55:37

  Új Válasz

  Ú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

  

  PETEE78

  senior tag

  Sziasztok!

  Hogy lehet megadni egy fájl nevét, ha csak az elejét ismerem?
  Mondjuk addig, hogy: 221_ALMA_20151111........ .csv
  A pontozott részen lévő karaktereket nem tudom, csak a kiterjesztést
  A 151111 része napi dátum révén változik.

  mystring = Format(Now(), "yyyymmdd")
  sdateform = Mid(mystring, 3)

  filename = "221_ALMA_20" & sdateform &".csv"
  oldPath = "X:\BLABLA\221_A"
  newPath = "C:\probakonyvtar\151111"
  Set fs = CreateObject("Scripting.FileSystemObject")
  fs.CopyFile oldPath & "\" & filename, newPath & "\" & filename
  Set fs = Nothing

• Belnir csendes tag

  #29454 2015-11-11 10:35:06

  Új Válasz

  Ú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

  

  Belnir

  csendes tag

  Felmerült egy probléma. Azt vettem észre, hogy a változást csak akkor logolja, ha semmiről-valamire vagy valamiről-valamire változott az érték. Ha galád módon valaki valamiről-semmire változtat egy cellaértéket, arról nem jön létre a log-sor (magyarán szemétségből valaki töröl egy cellatartalmat, és bemószerolja a másikat).
  A kód ilyen:

  Public aktualis
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lastrow As Long
  Dim akt_lap As String: akt_lap = ActiveSheet.Name
  If Target.Count <> 1 Then Exit Sub
  If aktualis = Target.Value Then Exit Sub
  Application.ScreenUpdating = False
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Logfile = FSO.OpenTextFile("\eleresi_utvonal\log.txt", 8, True)
  Logfile.WriteLine ("VÁLTOZTAT" & " - " & Format(Now, "YYYY.MM.DD hh:mm:ss") & " - " & Environ$("username") & " - " & Application.UserName & " - " & Environ$("computername") & " - " & Target.Parent.Name & " - " & Target.Address & " - " & aktualis & " - " & Target.Value)
  Logfile.Close
  Set Logfile = Nothing
  Set FSO = Nothing
  xit:
  
  Worksheets(akt_lap).Activate
  Selection.Activate
  Application.ScreenUpdating = True
  End Sub
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  aktualis = ActiveCell.Value
  End Sub

  Mit írjunk még bele, hogy azt is logolja?

• m.zmrzlina senior tag

  #29453

  #29452 csferke

  2015-11-11 09:33:35

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29452 csferke

  Ez egy kicsit szofisztikáltabb megoldás, a lényeg itt is a Target = UCase(Target)-ben van.

• csferke senior tag

  #29452

  #29451 m.zmrzlina

  2015-11-11 09:07:11

  Új Válasz

  Ú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

  

  csferke

  senior tag

  #29451 m.zmrzlina

  Szia!
  Kicsit "mélyebben" átnéztem a linket amit küldtél [link] és a következőt találtam

  Private Sub Worksheet_Change(ByVal Target As Range)
  ''''''''''''''''''''''''''''''''''''''''''''
  ' Forces text to UPPER case for the range
  ''''''''''''''''''''''''''''''''''''''''''''
  If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
  If Not Intersect(Target, Range("C14:J14")) Is Nothing Then
  Application.EnableEvents = False
  Target = UCase(Target)
  Application.EnableEvents = True
  End If
  End Sub

  Ezzel nem kell vizsgálni a bevitt adatokat. A munkafüzetet pedig különben is xlsm-ként kell mentenem.

• m.zmrzlina senior tag

  #29451

  #29449 csferke

  2015-11-11 07:54:08

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29449 csferke

  Automatikus megoldás:/munkalaphoz rendelve a makrót/

  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Target = UCase(Target)
  Application.EnableEvents = True
  End Sub

  Előnye, hogy a begépelt szöveget <Enter>-re a kívánt formátumra állítja hátránya, hogy .xlsm-ként kell menteni a munkafüzetet.

  Feltételes formázásos megoldás:

  

  

  Itt a usert erőlteted hogy az általad kívánt formátumban vigye be az adatot.

  Nem magamtól vagyok ilyen okos innen loptam.

• Polllen félisten

  #29450

  #29449 csferke

  2015-11-11 07:00:51

  Új Válasz

  Ú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

  

  Polllen

  félisten

  #29449 csferke

  Szia!

  Úgy tudom, h excel-ben nincs ilyen cellaformázás, csak az UPPER függvénnyel lehet megoldani.

  Vagyis maximum egy macro-t tudsz írni, ami kicserél mindent nagyra.

• csferke senior tag

  #29449 2015-11-11 06:48:44

  Új Válasz

  Ú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

  

  csferke

  senior tag

  Sziasztok!
  Egy Custom formázás kellene Excel 2007-ben. Azt szeretném, hogy a cellába írt betű, kicsi/nagy mindig nagybetűként jelenjen meg (I/N, Y/N, D/N ...).

  köszi

• Bobrooney senior tag

  #29448

  #29447 teve27

  2015-11-10 14:53:32

  Új Válasz

  Ú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

  

  Bobrooney

  senior tag

  #29447 teve27

  Jah igen elnéztem a dolgot. Esetleg kimutatással?
  

• teve27 csendes tag

  #29447

  #29446 Bobrooney

  2015-11-10 14:52:37

  Új Válasz

  Ú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

  

  teve27

  csendes tag

  #29446 Bobrooney

  Köszönöm a gyors választ! Sajnos annyi gond van vele, hogy a Zsiguli vevőhöz kettő darab autó jött csak. Lehet, hogy rosszul vázoltam a gondom, ha egy rendszám többször fordul elő, akkor csak egyszer kellene venni.

• Bobrooney senior tag

  #29446

  #29445 teve27

  2015-11-10 14:47:46

  Új Válasz

  Ú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

  

  Bobrooney

  senior tag

  #29445 teve27

  Na itt mondjuk jó lehet az AB függvény
  
  A képlet másolható, így a többi oszlopra csak másoltam a képletet

• teve27 csendes tag

  #29445 2015-11-10 14:15:55

  Új Válasz

  Ú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

  

  teve27

  csendes tag

  Sziasztok!

  Szakértői segítségeteket szeretném kérni az alábbi ügyben:

  

  B oszlopban az szerepel, hogy milyen rendszámú teherautó vett fel árut a C oszlopban szereplő vevő megbízásából. Amit én szeretnék, az megtudni, hogy adott vevőhöz hány darab autó rakodott. Jelen példában a Zsigulihoz két teherautó (AAA-111 és BBB-222) rakodott.

  Addig már próbálkozásaim során eljutottam, hogy meg tudom az excellel számoltatni, hogy hány rendszám van az adott oszlopban, de nem sikerült sehogy sem megoldanom, hogy csak az adott vevőhöz tartozó teherautókat számolja meg.

  Nagyon köszönöm a segítséget!

• lenkei83 tag

  #29444

  #29443 Polllen

  2015-11-10 09:48:33

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #29443 Polllen

  Ha sorbarendezed már filter sem kell, jó az ötlet.
  Irányított kijelölést próbáltad? Csak hibák kijelölése, utána sorok törlése. Ami még gyorsíthat, ha az automatikus számolást átállítod manuálisra amíg törölsz.

• Polllen félisten

  #29443 2015-11-10 09:36:40

  Új Válasz

  Ú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

  

  Polllen

  félisten

  Sziasztok!

  Kellene egy kis segítség.

  Van egy ~16.000 soros táblázat, amiből ki kellene törölnöm azokat a sorokat, ahol a 4. oszlopban "#N/A" szerepel. A cellák tartalma különböző.

  Kipróbáltam ezt, de borzasztóan lassú:
  Range("A1").Select
  Selection.End(xlDown).Select
  lRow = ActiveCell.Row
  Do While lRow >= 1
  If Cells(lRow, 4).Text = "#N/A" Then Rows(lRow).EntireRow.Delete
  lRow = lRow - 1
  Loop

  Nem tudtok valami gyorsabb módszert?

  B tervnek az jutott eszembe, miközben ezt leírtam, hogy úgy rendezem a táblázatot, hogy az összes "#N/A" sor kerüljön előre, ezután kap egy filter-t és úgy kitörlöm az eredményt.

  Mit gondoltok?

• Fferi50 Topikgazda

  #29442

  #29441 m.zmrzlina

  2015-11-09 21:42:42

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #29441 m.zmrzlina

  Szia!
  "Csak akkor miért működik n+1-szer úgy is, hogy nincs kizárva a szöveges cella?" Ezt a kérdést szerintem itt nem fogjuk tudni megválaszolni. Én max arra tudok gondolni, hogy maga a keresési tartomány esetleg valamilyen ok miatt egy cellából áll és abban nem szám van.

  "Először a int_Mincsom, int_Maxcsom változó tipusát állítottam Variantra de nem jutottam közelebb. A leálláskor is szám (1 és 9 ami reális) volt az értéke nem pedig hiba."
  Csak az a kérdés, hogy a leállás melyik sorban volt, esetleg az előző értékeket láttad még az adott változókban. Nyilván ezt mostmár nehezen fogod tudni ismételten produkálni....

  Üdv.

• m.zmrzlina senior tag

  #29441

  #29440 Fferi50

  2015-11-09 20:25:05

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29440 Fferi50

  Köszi a választ. Az az érzésem, hogy hosszas hibakeresésnek nézek elébe.

  Először a int_Mincsom, int_Maxcsom változó tipusát állítottam Variantra de nem jutottam közelebb. A leálláskor is szám (1 és 9 ami reális) volt az értéke nem pedig hiba.

  Aztán egyszer csak elkezdett működni úgy hogy semmit nem módosítottam a kódon és most is lefut akárhányszor indítom.

  

  Az rng_Akioszt -szerintem- létrejön. Locals ablakban látom, sőt a FormulaR1C1 tulajdonságnál látom az elemek értékeit is. Ha erre gondolsz.

  Még egy adalék:
  Az rng_Akioszt(1,1) értéke szöveg az összes többi szám. Ha ezt a cellát kizárom a tartományból akkor úgy tűnik lefut a makró hiba nélkül ami logikus is. Csak akkor miért működik n+1-szer úgy is, hogy nincs kizárva a szöveges cella?

• Fferi50 Topikgazda

  #29440

  #29439 m.zmrzlina

  2015-11-09 19:56:04

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #29439 m.zmrzlina

  Szia!

  Az "Application.WorksheetFunction.Large((rng_Akioszt), 1)" eredménye hiba akkor, ha nem tudja az adott tartományon végrehajtani a műveletet. Mivel az int_Maxcsom tipusa integer, a hiba értékét nem kapja meg, ezért fut hibára.
  Oka: lehetséges, hogy az rng_Akioszt tartomány nem kapott értéket, azaz Nothing az értéke,vagy nincsenek benne adatok. Tehát azt meg kellene nézni, mielőtt a műveleteket elindítod. Vagy
  Másik megoldás, hogy a Maxcsom, Mincsom változódat Variant -nak deklarálod és a művelet után megnézed, hogy hiba-e az értéke.

  Üdv.

• m.zmrzlina senior tag

  #29439 2015-11-09 18:33:14

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  Set rng_Akioszt = ws_Kabelo.range(str_Akioszt & "1:" & str_Akioszt & int_usor)
  
  int_Maxcsom = Application.WorksheetFunction.Large((rng_Akioszt), 1)
  int_Mincsom = Application.WorksheetFunction.Small((rng_Akioszt), 1)

  A fenti értékadást esetenként valami kiakasztja és az int_Maxcsom = stb...stb... sornál Runtime error '13': Type mismatch hibával megáll. A str_Akioszt egy sztring változó és a hiba jelentkezésekor az értéke: "k"

  Most vettem csak észre, hogy a ws_Kabelo.range- ben kisbetűs a Range, mintha az excel nem értné, hogy mit akarok.

• hengelhof senior tag

  #29438

  #29437 Belnir

  2015-11-09 15:12:18

  Új Válasz

  Ú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

  

  hengelhof

  senior tag

  #29437 Belnir

  őőőő... nem úgy érti, hogy a cellában lévő szöveg a fotó előtt (a fotón) legyen, és ne takarja ki azt?

• Belnir csendes tag

  #29437

  #29436 Chrisluke

  2015-11-09 14:34:04

  Új Válasz

  Ú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

  

  Belnir

  csendes tag

  #29436 Chrisluke

  Előtte, fölött, mindegy hova teszed, az excelben szabadon tologathatod jobbra-balra a képet.
  

• Chrisluke csendes tag

  #29436 2015-11-09 09:58:13

  Új Válasz

  Ú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

  

  Chrisluke

  csendes tag

  Sziasztok, Excelbe szeretnék fotót beszúrni és azt szeretném ha a szöveg ami a képhez tartozik az a fotó előtt helyezkedne el. Word-ben ez megoldható Excelben azonban nem találom sehol vagy csak nem látom. Előre is köszi.

• Belnir csendes tag

  #29435

  #29425 bsh

  2015-11-09 08:19:25

  Új Válasz

  Ú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

  

  Belnir

  csendes tag

  #29425 bsh

  Szuperség, köszönöm!

  Már csak egy kérdés:
  Hol tanulhatom ki ezt a VBA programozást?

• Vladek83 tag

  #29434 2015-11-07 16:28:47

  Új Válasz

  Ú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

  

  Vladek83

  tag

  Sziasztok!

  Nyomtatási címek-nél "csak" a felső ismétlődő sorokat lehet megadni, alsót nem? Előre is elnézést a buta kérdésért...

  üdv,

• Delila_1 veterán

  #29433

  #29432 Márkó20

  2015-11-07 07:17:22

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29432 Márkó20

  Szívesen.

• Márkó20 csendes tag

  #29432

  #29418 Delila_1

  2015-11-06 19:05:21

  Új Válasz

  Ú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

  

  Márkó20

  csendes tag

  #29418 Delila_1

  Hú köszönöm Delila, így már érthető.Nagyon jó vagy!

• Delila_1 veterán

  #29431

  #29429 m.zmrzlina

  2015-11-06 17:15:14

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29429 m.zmrzlina

  Nincs mit.

• m.zmrzlina senior tag

  #29430

  #29428 Fferi50

  2015-11-06 17:06:44

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29428 Fferi50

  Igen igen. Lásd az előző hsz-t!

  Az If rng_Tempcell.Value = int_Csomag Then egy másik feltételt vizsgál szóval az kell bele. A minta csak egy kiragadott részlet egy hosszabb makróból.

  Köszi neked is!

• m.zmrzlina senior tag

  #29429

  #29427 Delila_1

  2015-11-06 17:05:49

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29427 Delila_1

  Közben rájöttem (és megint tanultam valamit) hogy a rng_Dkioszt és rng_Akioszt objektumváltozó deklarálásával volt gond. Én azt gondoltam (helytelenül) ha én pl deklarálom - hogy a példáddal éljek -
  Set rng_Dkioszt = Range("E2:E15")
  tartományt akkor ott pl az E2 cellának a .Row tulajdonsága 1 lesz hiszen abban a tartományban az az 1. sor. Na hát ez nagyon nem így van.

  Köszi a választ!

• Fferi50 Topikgazda

  #29428

  #29426 m.zmrzlina

  2015-11-06 16:57:46

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #29426 m.zmrzlina

  Szia!

  A probléma igazából nem probléma (vs: az excelnek mindig igaza van ), szerintem abból adódik, hogy az rng_Tempcell.Row a cellának a munkalapon elfoglalt helyét adja vissza és nem az rng_Dkioszt tartományban elfoglalt helyét -> a két szám csak akkor ugyanaz, ha az rng_Dkioszt tartomány az első sortól kezdődik. Egyébként le kell vonni belőle a tartomány induló sorának számát.

  Ezen kívül van egy ilyen sorod:
  If rng_Tempcell.Value = int_Csomag Then
  Ami után jön a következő:
  If rng_Tempcell.Value <> "" And rng_Akioszt.Cells(rng_Tempcell.Row, 1).Value = "" Then

  Szerintem itt az első feltétel felesleges, hiszen az előző vizsgálatban már megállapítottad, hogy nem üres az rng_Tempcell.

  Üdv.

• Delila_1 veterán

  #29427

  #29426 m.zmrzlina

  2015-11-06 16:51:21

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29426 m.zmrzlina

  Nálad elég sok változó van, amiknek az eredete nem látható az ábrán.

  A lenti makró üzenetet küld, ha a Dkioszt aktuális cellája nem üres, és nem azonos a tőle 2 oszloppal balra lévő tartomány azonos sorával.

  Sub mm()
  Dim rng_Dkioszt As Range, CV As Range
  Set rng_Dkioszt = Range("E2:E15")
  
  For Each CV In rng_Dkioszt
  If CV.Value > "" And CV.Value <> Range(CV.Address).Offset(, -2) Then
  MsgBox "Eltérés a(z) " & CV.Row & ".sorban"
  End If
  Next
  End Sub

• m.zmrzlina senior tag

  #29426 2015-11-06 16:34:27

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  For Each rng_Tempcell In rng_Dkioszt
  If rng_Tempcell.Value = int_Csomag Then
  If rng_Tempcell.Value <> "" And rng_Akioszt.Cells(rng_Tempcell.Row, 1).Value = "" Then
  If Application.WorksheetFunction.CountIf(rng_Csatkimarad, ws_Kabelo.Cells(rng_Tempcell.Row, 1).Value) = 0 Then '
  str_kodsor_csatlist = str_kodsor_csatlist & Trim(ws_Kabelo.Cells(rng_Tempcell.Row, 1).Value) & " + "
  End If
  End If
  End If
  Next

  

  A fenti programrészlettől a következőket várnám:

  -menjen végig az rng_Dkioszt nevű tartomány összes celláján
  -ha az rng_Akioszt tartományban a vizsgált cellával azonos sorban különbözőséget talál akkor történjen valami

  A probléma, hogy a

  If rng_Tempcell.Value <> "" And rng_Akioszt.Cells(rng_Tempcell.Row, 1).Value = "" Then

  feltételnél amikor a rng_Tempcell.Value még csak az x-dik sor értékét tartalmazza akkor a rng_Tempcell.Row már az X+1-dik sor számát tartalmazza. Másképpen ha a rng_Tempcell.Value=1 a rng_Tempcell.Row=4. Vagyis nem annak az elemnek az értékét adja vissza amit vizsgál hanem az egyel korábbit.

  Mitől lehet ez?

• bsh addikt

  #29425

  #29421 Belnir

  2015-11-06 15:57:31

  Új Válasz

  Ú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

  

  bsh

  addikt

  #29421 Belnir

  azért az jelentősen más, nem csak amolyan "átírjuk oszt' jóvan"
  itt egy ilyen faék megoldás. az egyszerűség kedvéért a log fájlt először külön hozd létre (egy üres excel fájl) és a megfelelő elérési utat írd bele.
  Private Sub Workbook_Open()
  Call WriteToLog(Application.UserName, "Megnyitás")
  End Sub
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  'Call WriteToLog(Application.UserName, "Bezárás")
  End Sub
  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Call WriteToLog(Application.UserName, Sh.Name & " változtatás")
  End Sub
  Private Sub WriteToLog(ByVal Who As String, ByVal What As String)
  Dim NewXL As New Excel.Application
  NewXL.Visible = False
  Dim Log As New Excel.Workbook
  Set Log = NewXL.Workbooks.Open("Z:\logfájl\elérési\útja\log.xlsx") 'A fájlt először kézzel hozd létre!
  Dim LastRow As Long
  LastRow = Log.ActiveSheet.Cells(Log.ActiveSheet.Rows.Count, 1).End(xlUp).Row
  Log.ActiveSheet.Cells(LastRow + 1, 1) = Format(Now, "YYYY.MM.DD hh:mm:ss")
  Log.ActiveSheet.Cells(LastRow + 1, 2) = Who
  Log.ActiveSheet.Cells(LastRow + 1, 3) = What
  Log.Save
  Log.Close
  Set Log = Nothing
  Set NewXL = Nothing
  End Sub

• m.zmrzlina senior tag

  #29424

  #29422 sedyke

  2015-11-06 10:49:18

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29422 sedyke

  =KÖZÉP(A3;SZÖVEG.TALÁL("COL:";A3)+5;SZÖVEG.TALÁL(" /";A3;SZÖVEG.TALÁL("COL:";A3)+5)-(SZÖVEG.TALÁL("COL:";A3)+5))

  Mindaddig működik amíg a színt COL:<szóköz> előzi meg és <szóköz>/ követi.

• lenkei83 tag

  #29423

  #29422 sedyke

  2015-11-06 10:49:02

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #29422 sedyke

  Ha A1-ben van a szöveged akkor B1-be ezt másold be:
  =BAL(JOBB(A1;HOSSZ(A1)-(SZÖVEG.KERES("L: ";A1)+2));SZÖVEG.KERES(" / ";A1)-1-(SZÖVEG.KERES("L: ";A1)+2))

• sedyke tag

  #29422 2015-11-06 10:23:39

  Új Válasz

  Ú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

  

  sedyke

  tag

  Sziasztok!

  Tudnátok segíteni, a tegnapi képletem egy másik verziójában?

  A422:050: HORSEHAIR LARGE BLACK BRUSH (A422) Style: COL: VARIOUS / SZACC: 05.0 /
  F245GW11:065: TASSEL LOAFER (F245GW11) Style: COL: BLACK CALF / SZMUK: 06.5 /

  Ilyen cellatartalmakból szeretném kinyerni a colourt, ami az első esetében various, a másodiknál black calf. Tehát a COL: utáni rész egészen a / jelig.

  Köszönöm!!!

• Belnir csendes tag

  #29421

  #29339 bsh

  2015-11-06 10:04:49

  Új Válasz

  Ú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

  

  Belnir

  csendes tag

  #29339 bsh

  Ez a megoldás maradt végül, kiválóan működik, összeépítettem azzal a kódsorral is, ami a változásokat is jegyzi. Ez egy txt-t hoz létre. Hogyan tudok xls-t létrehozatni vele? mit kell átírjak?

• m.zmrzlina senior tag

  #29420

  #29419 m.zmrzlina

  2015-11-06 09:42:10

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #29419 m.zmrzlina

  

  A kérdés tárgytalan. Probléma megoldva. Főleg, hogy a kérdésben benne van a válasz is.

• m.zmrzlina senior tag

  #29419 2015-11-06 09:16:05

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  Tartományt szeretnék definiálni objektumváltozóként.

  Ez működik:
  Set ws_Csatorna = wb_SPSS_scb.Worksheets("csatorna")
  Set rng_Csatkimarad = ws_Csatorna.Range("A1:A101")

  Ez nem:
  rng_Akioszt = ws_Kabelo.Range(str_Akioszt & "2:" & str_Akioszt & int_usor)
  rng_Dkioszt = ws_Kabelo.Range(str_Dkioszt & "2:" & str_Dkioszt & int_usor)

  Ez szintén működik:
  rng_Akioszt = ws_Kabelo.Range(str_Akioszt & "2:" & str_Akioszt & int_usor).Select
  rng_Dkioszt = ws_Kabelo.Range(str_Dkioszt & "2:" & str_Dkioszt & int_usor).Select

  Mi lehet a baj?

• Delila_1 veterán

  #29418

  #29414 Márkó20

  2015-11-06 07:21:39

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29414 Márkó20

  A Summary lap C2 képletét írom le, a többi ugyanarra a kaptafára készült.

  Az INDEX függvénnyel keressük ki a megfelelő értéket. Ennek a szintaktikája
  =INDEX(tartomány;sor;oszlop)

  A tartomány, amiben keresünk, az Outbound lap I:K oszlopa, ahol az I tartalmazza a keresett hetet, a J és K a két hozzá tartozó értéket. Másik lapon lévő tartományra úgy hivatkozunk, hogy megadjuk a lap nevét, majd felkiáltójel után a tartományt.

  A sort a HOL.VAN függvénnyel keressük meg.
  =HOL.VAN(keresési_érték;hol_keressük;egyezés_típusa)
  Az Outbound lapon TOTAL OUTBOUND wk1 módon szerepel a hét, a Summary lapon csak 1-es számmal. Ezért a keresési_érték "TOTAL OUTBOUND wk"&$A2, vagyis a szöveghez hozzáfűzzük a hét számát tartalmazó A2 cella értékét. A hol_keressük az Outbound lap I oszlopa. Az egyezés_típus értéke itt nulla, ennek a jelentését megtalálod a súgóban.

  Most már tudjuk, hogy az első hét adatait az Outbound lap 17. sorában találjuk. Már csak az oszlopot kell megadni az értékek kikereséséhez.
  A Summary lap C oszlopába a tartományunk (I:K) 2. oszlopának az adata kell, a D-be pedig a 3. oszlopé.

  Az egészet egy HAHIBA függvénybe ágyaztam be, másképp azokban a sorokban, ahol nem talál az INDEX megfelelő értéket – nincs még megadva a heti érték az Outbound lapon –, #HIÁNYZIK hibaérték jelenne meg, és ez csúnya.
  =HAHIBA(érték;hiba_esetén). Itt az érték az INDEX függvény eredménye, hiba esetén nulla értéket ír be, mert azt adtuk meg.

• lenkei83 tag

  #29417

  #29416 Bobrooney

  2015-11-05 20:18:50

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #29416 Bobrooney

  felrakod a megoldást?

• Bobrooney senior tag

  #29416

  #29415 lenkei83

  2015-11-05 20:09:53

  Új Válasz

  Ú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

  

  Bobrooney

  senior tag

  #29415 lenkei83

  Hali!

  Köszönöm, majdnem jó lett de hivatkozni kellett a cellákra, és sima operátoros képlet kellett.

• lenkei83 tag

  #29415

  #29413 Bobrooney

  2015-11-05 19:21:54

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #29413 Bobrooney

  Szia!

  Csatolva találsz egy mintatáblát. Annyival kiegészítettem, hogy beraktam egy kbség oszlopot, amire egyszerűen lehet feltételt megadni.

  [adatbázis függvény]

  Nagy májer én sem vagyok benne, keresztkérdéseket nem ér feltenni.

  Üdv.:
  P.

• Márkó20 csendes tag

  #29414

  #29394 Delila_1

  2015-11-05 18:55:49

  Új Válasz

  Ú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

  

  Márkó20

  csendes tag

  #29394 Delila_1

  Huu szuper köszi Csak nrm nagyon értem ezt nekem is màsnak kéne magyarázni.Ez a legegyszerűbb megoldás amúgy?

• Bobrooney senior tag

  #29413

  #29412 Delila_1

  2015-11-05 18:48:01

  Új Válasz

  Ú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

  

  Bobrooney

  senior tag

  #29412 Delila_1

  Köszi de sajna muszáj azzal csinálni

• Delila_1 veterán

  #29412

  #29410 Bobrooney

  2015-11-05 17:22:54

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29410 Bobrooney

  Tömbfüggvénnyel megcsináltam, de AB-vel nem tudom, soha nem használtam.

  {=DARAB(HA((F2:F80)*((E2:E80)<(F2:F80));F2:F80))}

• Delila_1 veterán

  #29411

  #29407 bsh

  2015-11-05 17:20:37

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29407 bsh

  usor = ActiveCell.SpecialCells(xlLastCell).Row
  MsgBox usor

  Jó kínlódást a formodhoz!

• Bobrooney senior tag

  #29410

  #29388 Bobrooney

  2015-11-05 17:20:16

  Új Válasz

  Ú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

  

  Bobrooney

  senior tag

  #29388 Bobrooney

  Erre tudna valaki válaszolni? :S

• bsh addikt

  #29409

  #29408 Delila_1

  2015-11-05 17:19:22

  Új Válasz

  Ú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

  

  bsh

  addikt

  #29408 Delila_1

  ja bocs, én a "táblázattá alakítást" azt hittem a másik problémára értetted, ami végülis "táblázattá alakít" egy halom comboboxot
  hogy miért olyan a táblázat, azt nekem hiába mondod, nekem csak a benne levő adatokkal kellen valamit kezdeni.

• Delila_1 veterán

  #29408

  #29407 bsh

  2015-11-05 17:17:28

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29407 bsh

  A táblázattá alakítás lehetővé teszi, hogy ne kelljen előre beírni a képleteket egy halom üres sorba. Az újonnan megkezdett sor másolja magának a fölötte lévő sorok képleteit.

• bsh addikt

  #29407

  #29406 Delila_1

  2015-11-05 17:13:56

  Új Válasz

  Ú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

  

  bsh

  addikt

  #29406 Delila_1

  miért van annyi képlet? ezt kérdezd attól, aki a táblázatot csinálta gondolom fogott egy képletet és autofillel lerántotta a végtelenbe és tovább, hogy "biztosamibiztos"
  de a ctrl+end az működik ezeken a táblázatokon rendesen, az utolsó értéket tartalmazó sorra (és oszlopra) ugrik, képlettől függetlenül. ezt kéne valahogy kihasználnom vba-ból.

  a "táblázattá alakítás" az egy teljesen másik projekt, semmi köze nincs a lastrow-os dologhoz, sőt az excelhez sincs egyáltalán semmi köze. és kimaradt egy lényeges sor a kódból, mert figyelmetlenül másoltam be:
  For Y = 1 To RefDocs.Count
  Call CreateRow(Y)
  FrmTáblázat.Frame1.ScrollHeight = FrmTáblázat.Frame1.ScrollHeight + RowHeight
  Next Y
  és a rowheight az egy konstans.
  de a lényeg, hogy szerintem meg van adva a userform mérete is, na.
  az event kezelés csak arra kellene (de végülis nem életbevágó), hogy csak azokat az értékeket kelljen visszaírni a megfelelő ojjektumokba, amiket megváltoztat a user (vagy a makró, lehet teszek bele ilyen autocorrect funkciót). nekem annyi elég lenne, hogy ha egy (közös, many-to-one) combobox_change event lenne, ami tudná a változott "cella" nevét (amiből én tudom, hogy azt hová kell majd visszaírni) és mondjuk az adott *box .tag-jét beállítom "changed"-re, onnan már sima ügy.

• Delila_1 veterán

  #29406

  #29405 bsh

  2015-11-05 17:00:32

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29405 bsh

  Miért van annyi képlet? Mire való a táblázattá alakítás?

  Mindegyik módszer a 20 mill-t adja eredményül, ha látszik a képletek eredménye, ha nem.

• bsh addikt

  #29405

  #29404 Delila_1

  2015-11-05 16:53:59

  Új Válasz

  Ú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

  

  bsh

  addikt

  #29404 Delila_1

  nem, azzal azzal megtalálja az utolsó értéket tartalmazó cellát a megadott oszlopban. csak ugye nem tudok egy konkrét oszlopot megadni, mert nem biztos, hogy ténylegesen mindig az az oszlop lesz a "leghosszabb".
  de mondjuk az is lehet, hogy pont abban a két oszlopban amivel próbáltam, abban nem volt húszmillió képlet

• Delila_1 veterán

  #29404

  #29403 bsh

  2015-11-05 16:44:10

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29403 bsh

  Azt a range("a" & rows.count).end(xlup).row formával is.

• bsh addikt

  #29403

  #29402 Delila_1

  2015-11-05 16:41:50

  Új Válasz

  Ú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

  

  bsh

  addikt

  #29402 Delila_1

  ez nem jó, mert ha pl. képletek vannak a cellákban (de értékek nélkül), akkor azt így is beleveszi az usedrange-be.

  így van a form generálva:
  Load FrmTáblázat
  FrmTáblázat.Frame1.Caption = "blahblahblah"
  FrmTáblázat.Frame1.Left = 3
  FrmTáblázat.Frame1.Top = 2
  FrmTáblázat.Frame1.Width = 1100
  FrmTáblázat.Frame1.Height = 20 + 20 * RowHeight
  FrmTáblázat.Frame1.ScrollHeight = 7
  FrmTáblázat.Height = FrmTáblázat.Frame1.Height + 70
  FrmTáblázat.Width = FrmTáblázat.Frame1.Width + 10
  For Y = 1 To RefDocs.Count
  Call CreateRow(Y)
  'itt az adatok kitöltése
  Next Y
  
  If Y < 20 Then
  FrmTáblázat.Frame1.ScrollBars = fmScrollBarsNone
  Else
  FrmTáblázat.Frame1.ScrollBars = fmScrollBarsVertical
  End If
  FrmTáblázat.Show
  End Sub

  és minden sor minden egyes textboxa pedig így: (combobox tökugyanez, csak ott még a választható értékek feltöltése is benne van, +3 sor)
  Private Sub CreateTextBox(ByVal Y As Integer, ByVal Name As String, ByVal L As Long, ByVal W As Long)
  Set newTB = FrmTáblázat.Frame1.Controls.Add("Forms.TextBox.1", CStr(Y) & Name, False)
  newTB.Width = W
  newTB.Height = RowHeight
  newTB.Top = (Y - 1) * RowHeight + 6
  newTB.Left = L
  newTB.SelectionMargin = False
  newTB.AutoSize = False
  newTB.Font.Name = FntName
  newTB.Font.Size = FntSize
  newTB.SpecialEffect = fmButtonEffectFlat
  newTB.BorderStyle = fmBorderStyleSingle
  newTB.Visible = True
  Set newTB = Nothing
  End Sub

• Delila_1 veterán

  #29402

  #29380 bsh

  2015-11-05 16:33:12

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #29380 bsh

  1. kérdésedre:

  usor=ActiveSheet.UsedRange.Rows.Count

  vagy
  usor=Sheets(2).UsedRange.Rows.Count

  2. a form méretét megadtad? Nem csak a rajta lévő elemek magasságát?

• sedyke tag

  #29401

  #29396 lenkei83

  2015-11-05 16:28:29

  Új Válasz

  Ú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

  

  sedyke

  tag

  #29396 lenkei83

  Lenne még valami...

  Igazából az én táblázatom sokkal hosszabb mindegyik munkafüzeten, csak az egyszerűség és átláthatóság kedvéért nem küldtem el az egészet.
  Van még jó pár hasonló csoportom az összesítő részen, és a 2015-ös, 2016-os lapok is sokkal hosszabbak.
  Látom makroval oldottad meg a dolgot, így nem igazán tudom, hogy mit kellene tennem, ha beillesztem mindegyik alá a maradékot.

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