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

• Oly őstag

  2010-05-06 12:19:34 #7100

  Ú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

  

  Oly

  őstag

  válasz Delila_1 üzenetére #7097

  Ez is jó. Majd kipróbálom. Én így csináltam:

  

  Az elérési útvonalat így adtam meg:

  MyFile = "\\***file01**\C*st*** **re\Public read-write\******t Mi****\Csoport S**t" & "megnyitó2.txt"

  Kicsillagoztam egy-két karaktert adatvédelmi okok miatt....

• lappy őstag

  2010-05-06 11:45:27 #7099

  Ú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

  

  lappy

  őstag

  Sziasztok
  Van két Comboboxom ezekhez adatok tartoznak.
  Pl.: Könyv: Gyűrűk ura1 Gyűrűk ura2 Gyűrűk ura3
  Kocsi: bmw ferrari merci
  Állat: kutya macska
  stb
  Ha az elsőből kiválasztok egy adatot (könyv kocsi állat) a második Comboboxban csak az ehez tartozó elemek közül lehet választani.
  Pl: állat (combobox1) kutya macska (combobox2
  Ezt sikerült megoldani.
  A problémám ott kezdődik hogy nem tudok mas megnevezéssel felvinni csoportokat, és nem tudom átnevezni őket, ilyenkor hibát ír ki.
  Hibaüüzenet: Could not set the RowSource propety. Invalid property value.
  Debug: .RowSource = strRange

  Private Sub ComboBox1_Change()
  Dim strRange As String
  If ComboBox1.ListIndex > -1 Then
  strRange = ComboBox1
  Label2.Caption = strRange
  strRange = Replace(strRange, " ", "_")
  With ComboBox2
  .RowSource = vbNullString
  .RowSource = strRange
  .ListIndex = 0
  End With
  Else
  Label2.Caption = "Associated Items"
  End If
  End Sub
  A próbléma megoldásához keresek hozzáértőt!!

• Fire/SOUL/CD félisten

  2010-05-06 11:28:21 #7098

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Oly üzenetére #7096

  Hali!

  Beírnád, hogy hogy adod meg teljes útvonallal a hálózati meghajtón lévő fájl elérését?

  Fire.

• Delila_1 veterán

  2010-05-06 11:24:34 #7097

  Ú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

  válasz Oly üzenetére #7089

  Az első érvényesítés (F1) az osztályfőnökök neveit hozza, az A1:D1 tartományt.
  Az osztályoknak így adj nevet: kijelölöd az A1:A20 tartományt, Beszúrás - Név - Létrehozás - Felső sorból.
  A G1 érvényesítésénél a forrás: =INDIREKT(F1)

  

• Oly őstag

  2010-05-06 11:23:50 #7096

  Ú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

  

  Oly

  őstag

  válasz Oly üzenetére #7089

  Mégsem jó.
  A hálózati meghajtón már nem működik.
  Elérési útvonal nélkül és azzal sem.

• Fire/SOUL/CD félisten

  2010-05-06 09:46:37 #7095

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Oly üzenetére #7089

  Hali!

  Igen, valóban, adatbázishoz kellene kötni, természetesen a legnyilvánvalóbb választás az Access. Vannak olyan feladatok, amelyek esetén már nem érdemes(még ha lehetséges is) Excelben makrózni.

  Mondjuk ez a csoport dolog így nem teljesen világos a számomra, ezt látni kellene, meg azt is, hogy mi legyen a végeredmény(amit ki akarsz hozni belőle). Így csak vaktában lövöldözné(n)k.

  Fire.

• Delila_1 veterán

  2010-05-06 09:14:34 #7094

  Ú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

  válasz nagytomi10 üzenetére #7088

  Az
  usor = ActiveSheet.UsedRange.Rows.Count + 1
  végéről töröld ki a +1-et.

• Delila_1 veterán

  2010-05-06 08:55:19 #7093

  Ú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

  válasz nagytomi10 üzenetére #7088

  Hibakezeléssel:

  Private Sub CommandButton1_Click()
  
  Application.ScreenUpdating = False
  
  Sheets("Találatok").Select
  ActiveSheet.Rows("2").Select
  ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
  Selection.Delete Shift:=xlUp
  
  sor_k = 2
  sz = Sheets("Munka2").Cells(1)
  
  Sheets("Munka1").Select
  
  On Error GoTo Hiba
  Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
  :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  False, SearchFormat:=False).Activate
  
  sor = Selection.Row: sor_m = sor + 1
  Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
  sor_k = sor_k + 1
  
  Do 'Keresés ismétlése
  Cells.FindNext(After:=ActiveCell).Activate
  sor = Selection.Row
  Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
  sor_k = sor_k + 1
  Loop While sor >= sor_m
  
  Sheets("Találatok").Select
  usor = ActiveSheet.UsedRange.Rows.Count + 1
  ActiveSheet.Rows(usor).Select
  Selection.Delete Shift:=xlUp
  ActiveSheet.Cells(1).Select
  Application.ScreenUpdating = True
  Exit Sub
  
  Hiba:
  MsgBox "Nincs '" & sz & "' érték a Munka1 lapon"
  
  End Sub

  2003-as verzióban írtam, ahhoz nem kellett az ActiveSheet. Látom, áttetted a Munka2!A1-be a keresendő értéket. Jobb, mert ha az adatok között egyébként nem szerepelne, a Find ezt az egyet megtalálná.

• perfag aktív tag

  2010-05-06 07:30:48 #7092

  Ú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

  

  perfag

  aktív tag

  válasz nagytomi10 üzenetére #7088

  Biztos, hogy akarsz üzenetet? Nem tudom mennyi adattal dolgozol, de beleszaladhatsz egy olyanba, hogy csak kattingatsz és kattintgatsz ...
  A VBA On Error hibakezelőjét nézd meg a súgóban, vagy olvasd el Chip Pearson összefoglalóját. [Error Handling in VBA]
  Én az On Error Resume Next-re szavazok, de ha kellenek a cellák ahol az ismétlődések vannak akkor inkább gyűjtsd ki egy listába.
  Óvatosan a hibakezelővel, ki is kell kapcsolni! különben nagyon elszáll az Excel, ments gyakrabban.

• perfag aktív tag

  2010-05-06 07:16:55 #7091

  Ú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

  

  perfag

  aktív tag

  válasz Pulsar üzenetére #7090

  Kis segítséget kapsz csak: van ezer fájlod, ezek neveit előbb ki kell gyűjtened, pl. [így]. Ha megvannak a fájlnevek, kell egy ciklus, ami kiolvassa az adatokat, pl. [így].

• Pulsar veterán

  2010-05-06 00:46:58 #7090

  Ú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

  

  Pulsar

  veterán

  Sziasztok!

  Egy kis segítséget szeretnék kérni... Van egy könyvtáram a wincsesztere, és van benne 1000 filesom. Azek txt file-ok kiterjesztés nélkül. A txt filesokban mindig ugyamabban a sorrendben vannak adatok ,-vel elválasztva.
  Én ezeket az adatokat szeretném sorba beolvasni egy excel file-ba. tehát egy file egy sor, következő file következő sor

  Meg lehet ezt makróba csinálni?

  Ja a filesok nevében nincs rendszer.. tehát vélelen szerűen generált 16 jegyű szám és betű kódok.

• Oly őstag

  2010-05-05 23:41:59 #7089

  Ú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

  

  Oly

  őstag

  válasz Fire/SOUL/CD üzenetére #7087

  Ez így tökéletes. Bár jobb lenne, ha Excel táblába rögzítené, de utána olvastam és az egy kicsit bonyolultabb, mert valami adatbázisnak kellene kezelnie.

  A következő kérdésem:

  Adott egy táblázat.
  Van 4 csoport. a csoportokon belül több elem. Minden csoportban más számú elem.
  Például: Iskolai osztályok.

  Azt szeretném elérni, hogy az osztályfőnökök listájából választva már csak az adott osztály névsorából választhassak.

  Most két Vezérlő Listapanelem van.
  Az egyikben ugye az osztályfőnökök, majd a a kiválasztott elem alapján egy "keres" fügvénnyel kilistázom egy oszlopba az adott osztály névsorát és ez lesz a forrása a következő Listapanelnél.

  Valakinek van jobb ötlete?

• nagytomi10 csendes tag

  2010-05-05 23:05:31 #7088

  Ú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

  

  nagytomi10

  csendes tag

  válasz perfag üzenetére #7073

  Az ActiveSheet. beillesztése lett a megoldás, pedig nálam 2007-es Excel van. Köszi!

  Azt hogy lehetne megoldani, hogy ha nem talál azonos cellát a keresés, akkor ne Run-time error-ral szálljon el, hanem dobjon egy felugró ablakot, valamilyen üzenettel?

  Private Sub CommandButton1_Click()
  
  Application.ScreenUpdating = False
  
  Sheets("Találatok").Select
  ActiveSheet.Rows("2").Select
  ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
  Selection.Delete Shift:=xlUp
  
  Sheets("Munka2").Select
  ActiveSheet.Cells(1, 1).Select
  sor_k = 2
  sz = Selection.Value
  
  Sheets("Munka1").Select
  
  Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
  :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  False, SearchFormat:=False).Activate
  sor = Selection.Row: sor_m = sor + 1
  Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
  sor_k = sor_k + 1
  
  Do 'Keresés ismétlése
  Cells.FindNext(After:=ActiveCell).Activate
  sor = Selection.Row
  Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
  sor_k = sor_k + 1
  Loop While sor >= sor_m
  
  Sheets("Találatok").Select
  usor = ActiveSheet.UsedRange.Rows.Count
  usor = usor + 1
  ActiveSheet.Rows(usor).Select
  Selection.Delete Shift:=xlUp
  ActiveSheet.Cells(1).Select
  Application.ScreenUpdating = True
  
  End Sub

• Fire/SOUL/CD félisten

  2010-05-05 20:41:27 #7087

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Oly üzenetére #7086

  Hali!

  Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  
  Private Sub Workbook_Open()
  MyFile = "d:\" & "myfilename.txt"
  fnum = FreeFile()
  Open MyFile For Append As fnum
  Write #fnum, Now(), Environ("USERNAME")
  Close #fnum
  End Sub

  Képben

  Fire.

• Oly őstag

  2010-05-05 20:36:59 #7086

  Ú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

  

  Oly

  őstag

  válasz Fire/SOUL/CD üzenetére #7085

  Ohhh...

  Ez nagyon f@cányos. Már csak olyan kérdésem van, hogy hogyan tudnám ezt a munkalap megnyitására futtatni?

• Fire/SOUL/CD félisten

  2010-05-05 20:08:43 #7085

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Oly üzenetére #7084

  Hali!

  Remélem erre gondolsz

  Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  
  Private Sub CommandButton1_Click()
  'List_All_Environ_info
  WriteToTextFile
  End Sub
  
  Function List_All_Environ_info() As String
  Dim Counter As Integer
  Counter = 1
  Do Until Environ(Counter) = ""
  Cells(Counter, 1).Value = Environ(Counter)
  Counter = Counter + 1
  Loop
  End Function
  
  Sub WriteToTextFile()
  MyFile = "d:\" & "myfilename.txt"
  fnum = FreeFile()
  Open MyFile For Append As fnum
  Write #fnum, Now(), Environ("USERNAME")
  Close #fnum
  End Sub

  Fire.

• Oly őstag

  2010-05-05 19:27:42 #7084

  Ú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

  

  Oly

  őstag

  válasz Fire/SOUL/CD üzenetére #6989

  Halihó!

  Most van egy ksi időm foglalkozni a dologgal.

  Mire majdnem kész lettem, esszembe jutott, hogy a kollégáknak csak read onlyban engedem megnyitni a filet. Ilyenkor hogyan lehetne ezt megmókolni?

  A macró egy másik fileba be tudja másolni az adatokat? Amit persze write-ba nyitna meg.

• attiati veterán

  2010-05-05 19:11:33 #7083

  Ú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

  

  attiati

  veterán

  Köszi mindkettőtöknek, felraktam egy HP color laserjetet, most már jó.
  Tiszta menő, lett egy nyomtatóm

• ro_bert17 őstag

  2010-05-05 17:21:46 #7082

  Ú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

  

  ro_bert17

  őstag

  válasz perfag üzenetére #7081

  Nálam a melóban XP-2003 sok nyomtatóval, mellettem a saját notim, W7-2007-el, fizikai nyomatató nélkül. Szines, szines.

• perfag aktív tag

  2010-05-05 17:15:00 #7081

  Ú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

  

  perfag

  aktív tag

  válasz ro_bert17 üzenetére #7080

  Itthon 2007-es Excelem van. Engem is meglepett, mert úgy emlékeztem korábban nem volt nyomtató függő az előkép (emiatt szerkesztettem a hozzászólásomat). Holnap megnézem a munkahelyemen a 2003-asban jól emlékszem-e. Magamnak. Hogy tudjam, bízhatok-e az emlékeimben.

• ro_bert17 őstag

  2010-05-05 17:06:03 #7080

  Ú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

  

  ro_bert17

  őstag

  válasz perfag üzenetére #7079

  Akkor viszont én megvagyok lőve. Ha át állítom nem szines nyomtatóra, nálam akkor is szines a nyomtatási kép! (ezt már az előző hsz-nél is így tapasztaltam, ezért is nem írtam bele)

  (#7078) attiati: egy virtuális nyomtató nem fog megártani. Szóval szerintem próbáld ki. (Lehet még az office-é is elég.)

• perfag aktív tag

  2010-05-05 16:51:25 #7079

  Ú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

  

  perfag

  aktív tag

  válasz attiati üzenetére #7078

  Oldalbeállítás, Lap fül, Egyebek... gomb,a nyomtató párbeszédablakában Oldalbeállítás fülön tedd át színesre.
  --> módosítom a véleményem. Igazad van. Áttettem LaserJetre és tényleg csak fekete fehér a kép. Telepíts egy pdf nyomtatót, nálam is az van, vagy SnagIt-et

• attiati veterán

  2010-05-05 16:05:29 #7078

  Ú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

  

  attiati

  veterán

  válasz ro_bert17 üzenetére #7075

  Nincs bepipálva. Ráadásul ha bepipálom, akkor a színezett cellákat szürke helyett fehérre veszi.
  Ha nincs bepipálva, akkor legalább szürkén kiemeli mondjuk a zöld cellát.

  Hozzá kéne adnom XP-ben egy színes nyomtatót, mintha lenne olyanom?
  Vagy mit kéne tenni?

• einstein senior tag

  2010-05-05 16:00:22 #7077

  Ú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

  

  einstein

  senior tag

  Sziasztok, van egy őrjítő Excel 2007 hibám.
  Worksheetek között kattintgatva néha (illetve inkább nagyon gyakran) nem vált át a másik fülre, hanem mintha csak elvesztené a fókuszt az aktív fülön. Tehát hiába kattintok mondjuk a mellette lévő munkafüzetre, nem vált át... Néha mintha jobb gombot nyomtam volna, felugrik a menü is.
  Csak úgy tudom megoldani a problémát hogy rákattintok valamelyik másik fülre, amire aztán átvált, majd vissza arra amelyikre eredetileg rá akartam menni...
  Találkozott már valaki hasonlóval?

  Pontosítok: tehát egy fájlon belül meglévő munkafüzet váltásoknál van ez a hiba, nem fájlok közötti ugrálásnál.

• scott_free senior tag

  2010-05-05 14:55:08 #7076

  Ú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

  

  scott_free

  senior tag

  hali,

  le szeretném védeni az excel-fájlomat, hogy ne lehessen belepiszkálni, csak a kijelölt mezőkön lehessen módosítani és a tábla mögötti adatokat se lehessen látni.
  beírtam egy jelszót a "Lapvédelem"-nél, gondolván, hogy ez segít.

  aztán a netről leszedtem egy "Passware Password Recovery Kit"-et, ami 0 mp alatt fel tudta törni ezt a védelmet.
  beírtam egy hosszú, változatos jelszót, ami a www.passwordmeter.com-on 100%-ot kapott, de ezt is 0 mp alatt törte fel. gondolom, hogy megkerüli valahogyan.
  (valami MD5 attack-ot ír a progi)

  persze nem a valós jelszót adja vissza, de mégis hozzáférhetővé teszi a fájlt.

  na erre tud valaki valamilyen megoldást?

• ro_bert17 őstag

  2010-05-05 13:37:36 #7075

  Ú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

  

  ro_bert17

  őstag

  válasz attiati üzenetére #7074

  A nyomtatási kép az szines. (legalább is nálam )
  Oldalbeállítás, lap, nyomtatásnál a fekete-fehérben nincs véletlenül bepipálva?

• attiati veterán

  2010-05-05 13:32:38 #7074

  Ú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

  

  attiati

  veterán

  Hogy lehet megoldani, hogy excelben a nyomtatási kép színes legyen?
  A nyomtatási képről szeretnék képlopóval képet menteni. Szóval nem azt szeretném, hogy színesen nyomtassa, hanem a képernyőn a nyomtatási kép színes legyen. Köszi előre is!

• perfag aktív tag

  2010-05-05 11:02:40 #7073

  Ú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

  

  perfag

  aktív tag

  válasz nagytomi10 üzenetére #7071

  Most a munkahelyemről, itt 2003-as Excelen: Activesheet. kell az 5., 6., 30. és 32. sorokba és műxik.

• WildBoarTeam senior tag

  2010-05-05 09:00:07 #7072

  Ú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

  

  WildBoarTeam

  senior tag

  válasz nagytomi10 üzenetére #7071

  2003-at használsz amúgy?
  Nekem egyszer volt hasonló jelenségem (tán még a hibaüzenet is ez volt). Delila_1-val néztük ugyanazt a fájlt. Ő 2007-es excelben, én meg 2003-asban és nekem ugyanígy hibaüzenettel megállt, nála meg ment rendesen minden. Én azt csináltam, hogy nyitottam egy új modult a VBA-ban, átmásoltam oda a kódot, töröltem a régi modult és működött. Ez csak egy tipp, ha 2003-ad van.

• nagytomi10 csendes tag

  2010-05-05 08:44:40 #7071

  Ú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

  

  nagytomi10

  csendes tag

  válasz perfag üzenetére #7070

  ActiveSheet.Select-re gondoltál?
  Beraktam mindkét helyre, de ugyanaz a probléma.
  Idézőjeleket kitöröltem, de így se változott semmi.

• perfag aktív tag

  2010-05-05 08:32:10 #7070

  Ú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

  

  perfag

  aktív tag

  válasz nagytomi10 üzenetére #7068

  Tegyél elé egy ActiveSheet.-et, és a következő sorba is a Range elé is.

• WildBoarTeam senior tag

  2010-05-05 08:24:51 #7069

  Ú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

  

  WildBoarTeam

  senior tag

  válasz nagytomi10 üzenetére #7068

  Tehát akkor a Sheets("Találatok").Select sor még jó.
  Próbáltad idézőjelek nélkül? Rows(2).Select (így is működnie kell)
  Mert ez ugye kijelöli a második sort, majd elmegy az utolsó sorig, ahol adatot talál (próbáld ki manuálisam: kijelölöd a 2. sort, majd Shift+End+lefelenyíl), végül a kód következő soraiban törli a tartalmát a kijelölt résznek.
  Szerintem szedd ki az idézőjeleket, ha nem lesz jó, akkor próbálkozunk mással.

• nagytomi10 csendes tag

  2010-05-05 08:07:07 #7068

  Ú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

  

  nagytomi10

  csendes tag

  válasz WildBoarTeam üzenetére #7067

  A harmadik sornál akad meg:
  Rows("2").Select

• WildBoarTeam senior tag

  2010-05-05 08:04:53 #7067

  Ú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

  

  WildBoarTeam

  senior tag

  válasz nagytomi10 üzenetére #7066

  Próbáld meg linkelni a fájlt, mert így nehéz lesz megtalálni a hibát.
  vagy próbáld meg lépésenként futtatni a makrót (VBA-ban F7 bill.) és látni fogod, hogy hol akad meg a hibával.

• nagytomi10 csendes tag

  2010-05-05 07:58:39 #7066

  Ú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

  

  nagytomi10

  csendes tag

  válasz perfag üzenetére #7065

  Konkrétan egy Private Sub CommandButton1_Click() eseménybe másoltam be egy az egybe és ezt az üzenetet kapom:
  Range osztály select metódusa hibás.

  Van Munka1 és Találatok munkalapom.

• perfag aktív tag

  2010-05-05 07:25:21 #7065

  Ú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

  

  perfag

  aktív tag

  válasz nagytomi10 üzenetére #7063

  nem működik - ennél azért több infót adj, ha kérdezel!
  Milyen Exceled van? Ha 2007-es, akkor Office gomb, Az Excel beállításai ..., Adatvédelmi központ, Az Adatvédelmi központ beállításai .., Makróbeállítások: Az összes makró engedélyezése -- ez megvolt? Ettől fut a makró.
  Ha a makró fut, de hibát jelez, akkor valószínűleg nincs Találatok, vagy Munka1 nevű munkalapod. Ebben az esetben ugyanis a makró Subscript out of range üzenettel kiakad.

• WildBoarTeam senior tag

  2010-05-05 07:12:40 #7064

  Ú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

  

  WildBoarTeam

  senior tag

  válasz nagytomi10 üzenetére #7063

  Ez attól függ mit akarsz csinálni.
  Például nézted a #6541 hsz-ben lévő xls-t?
  Én kipróbáltam. A Munka2-t átneveztem Találatok-ra, a hét számait tartalmazó címsort átmásoltam rá a Munka1-ről
  Beírtam a Munka1 A1 cellájába a nevet, amit ki akarok gyűjteni és szépen hozta.

  Ja, és én modulként vettem fel a VBA editorban és nem a Microsoft script editorban.

• nagytomi10 csendes tag

  2010-05-04 23:49:50 #7063

  Ú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

  

  nagytomi10

  csendes tag

  válasz Delila_1 üzenetére #6546

  Sziasztok!

  Az én problémámra gyakorlatilag tökéletes lenne ez a megoldás
  [link], de ez nem működik ha VBA scriptként illesztem be.
  Mit kell módosítanom ahhoz, hogy működjön?

• WildBoarTeam senior tag

  2010-05-04 12:01:35 #7062

  Ú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

  

  WildBoarTeam

  senior tag

  válasz VANESSZA1 üzenetére #7060

  Fire-nek igaza van. működnie kell. Sőtt, ha van egy könyvtárszerkezeted és azt komplettan másolod, akkor is. Értem ezt így:
  1. gép.:
  C:\munka\január mappa - itt vannak a doc fájlok
  C:\munka\akármi mappa - itt van az excel fájlod, amiből hivatkozol a doc fájlokra.

  Ha te a komlpett munka mappát lemásolod egy másik gépre, akkor is működnie kell.
  De akárhova másolva is működik. pl.:
  C:\valami\munka\január mappa
  C\valami\munka\akármi mappa
  A lényeg, hogy a könyvtárszerkezet egyezzen.

• Fire/SOUL/CD félisten

  2010-05-03 19:59:56 #7061

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz VANESSZA1 üzenetére #7060

  Hali!

  Ha a doksik ugyanabban a könyvtárban vannak mint az excel munkafüzet, akkor a hivatkozásban nem kell útvonalat megadni. Simán 1.doc, 2.doc, stb nem pedig c:\ubul\1.doc, c:\ubul\2.doc stb. Első esetben, ha könyvtárastól átmásolod a doksikat, az excel munkafüzettel együtt, akkor a másik gépen/könyvtárban is működnie kell.

  Fire.

• VANESSZA1 őstag

  2010-05-03 19:49:47 #7060

  Ú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

  

  VANESSZA1

  őstag

  Sziasztok !

  Lenne egy kérdésem:

  Van egy mappám, amiben .doc fájlok. Ebben a mappában létrehozok egy excel fájlt amiben elkészítek egy listát,ezekről a .doc-os fájlokról. Minden egyes sorba be herül egy hivatkozás is az adott fájl-ról.
  A kérdésem a következő:

  Létre tudom ezt úgy hozni, hogy ha a mappát átteszem egy másik gépre ott is működjenek a hivatkozások?

• perfag aktív tag

  2010-05-03 19:31:10 #7059

  Ú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

  

  perfag

  aktív tag

  válasz Benarivo üzenetére #7057

  Az adatok rendezetlensége nem gond.
  [A KERES függvény használata nem rendezett adatokhoz az Excel programban]

• Delila_1 veterán

  2010-05-03 15:13:11 #7058

  Ú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

  válasz Benarivo üzenetére #7057

  Nem. Küldd el a fájlt privátban, megnézem.

• Benarivo csendes tag

  2010-05-03 15:11:33 #7057

  Ú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

  

  Benarivo

  csendes tag

  hat egy angol tutorial azt irja h a vlookup csak akkor muxik ha az elso oszlop es sor abc vmint novekvo sorrendbe vannak... nalam osszevissza vannak. lehet ez a baj?

• Delila_1 veterán

  2010-05-03 15:03:11 #7056

  Ú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

  válasz Benarivo üzenetére #7055

  Oda
  =FKERES(C2;Munka1!A:R;HOL.VAN(D2;Munka1!1:1;0);0)
  kell.

• Benarivo csendes tag

  2010-05-03 15:01:01 #7055

  Ú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

  

  Benarivo

  csendes tag

  válasz Delila_1 üzenetére #7054

  hat en nemtudom milehet a baja, megprobalom majd otthon a magyarba beirni..

• Delila_1 veterán

  2010-05-03 13:53:31 #7054

  Ú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

  válasz Benarivo üzenetére #7053

  Nézd át jól a bevitt képletet!
  Nálam pontosvesszőket kell írni ott, ahol az angol verzióban vesszőt.
  A magyarban működik.

• Benarivo csendes tag

  2010-05-03 13:45:58 #7053

  Ú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

  

  Benarivo

  csendes tag

  válasz Delila_1 üzenetére #7052

  Aha sikerult, viszont az E2-be #N/A ir ki akkor is van vmi a c2 d2be akkor is ha semmi

• Delila_1 veterán

  2010-05-03 12:21:03 #7052

  Ú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

  válasz Benarivo üzenetére #7051

  Megpróbálom én.
  Kijelölöd A2-től a neveidet, és nevet adsz a tartománynak, ahogy a képen látod.
  
  Hasonlóan kijelölöd az A1:R1 tartományt, és a Címsorok nevet adod neki.
  A Sheet2 lapon beállsz a C2 cellába. Az érvényesítésnél a listát választod a legördülőből, a forráshoz pedig beírod: =Nevek
  A D2 cellán állva újabb érvényesítés következik, aminek a forrása a Címsorok.
  Ezekből az elkészült legördülőkből kiválasztod a nevet, és az oszlopcímet. Az E2 cellába beírod a képletet, amit a #7047-ben írtam.

• Benarivo csendes tag

  2010-05-03 12:03:55 #7051

  Ú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

  

  Benarivo

  csendes tag

  válasz Delila_1 üzenetére #7050

  akkor vki segitsen a data validationnel mert nem az egyszeruseg hanem a megoldas lenne a lenyeg amit akartam

• Delila_1 veterán

  2010-05-03 11:41:47 #7050

  Ú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

  válasz Benarivo üzenetére #7049

  Akkor legegyszerűbb, amit Fire ajánlott.
  A Sheet1 lapodon bekapcsolod a Data/Filter/Autofiltert. A címsorokban kis nyilak jelennek meg. Az A oszlopban ennek a legördülőnek a segítségével kiválasztott nevet, és akkor csak az ő sorához tartatozó adatok látszanak majd.

• Benarivo csendes tag

  2010-05-03 11:34:49 #7049

  Ú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

  

  Benarivo

  csendes tag

  válasz Delila_1 üzenetére #7048

  ahamm,
  es mondjuk ha ugyanazon az oldalon eleg lenne,nem kene sheet2ozni azt letudnad irni tehat siman a tablazat folotti sorokban lenne ugyanugy a c2 d2 e2 ben..
  Kossszonom szepen a segitseget

• Delila_1 veterán

  2010-05-03 11:28:49 #7048

  Ú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

  válasz Benarivo üzenetére #7046

  Ha nem tudod, hogy kell elnevezni egy-egy tarományt, és hogy kell bevinni érvényesítést, biztosan jön hamarosan valaki ide a fórumra, aki leírja, hogy az angol Exceledben hogyan tudod ezeket elérni.

• Delila_1 veterán

  2010-05-03 11:25:21 #7047

  Ú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

  válasz Fire/SOUL/CD üzenetére #7045

  Ha mindenképp másik lapon szeretné látni a kikeresett értéket, akkor érdemes a Sheet1 lapon nevet adni az A oszlop neveit tartalmazó tartománynak, a Sheet2-őn C2-be bevinni egy érvényesítést a nevekről, a D2-be újabb érvényesítés a címekről (névadás után) – de mindegyiket lehet direkt címzéssel is –, végül az E2-be
  =VLOOUP(C2,Sheet1!A:R,MATCH(D2,Sheet1!1:1,0),0)

• Benarivo csendes tag

  2010-05-03 11:25:01 #7046

  Ú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

  

  Benarivo

  csendes tag

  válasz Delila_1 üzenetére #7044

  nekem ez #VALUE! -t ad ki

  az lenne az ertelme hogy aki ezt hasznalja nem latja a tablazatot
  csak a nevet es a cimszot tudja es a hozzatartozo info erdekli ezert adna be a ket szot es kapna meg az infot (es csak azt az infot ami erdekli a tobbi oszlopot nem)

• Fire/SOUL/CD félisten

  2010-05-03 11:18:20 #7045

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #7044

  Hali!

  Ahogy látom, lehet, hogy elfogsz jutni az autoszűrőig....

  Fire.

• Delila_1 veterán

  2010-05-03 11:10:57 #7044

  Ú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

  válasz Benarivo üzenetére #7043

  Ennek így nem sok értelmét látom, mert ha már kikerested, hogy a név hanyadik sorban van, és melyik oszlop tartalmazza a kérdéses tartalmat, akkor már ott van az érték is.
  Azért az E2 képlete:
  
  =INDIRECT("Sheet1!" & CHAR(C2+64) &D2+1)

• Benarivo csendes tag

  2010-05-03 10:54:51 #7043

  Ú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

  

  Benarivo

  csendes tag

  válasz Delila_1 üzenetére #7042

  Ok, de igazabol ez egy kis pelda volt szoval tobb parameter lenne nem csak ez a 3 ezer akarnam ugy megcsinalni h mind a ket parameter valtoztathato legyen
  konkretan:
  cimszavak A5 tol R5 ig Nevek A6 tol A13 ig ( a keresendo adat ugye a B6 tol R13ig tablaban)

  es en szeretnek egy olyat h mondjuk C2 es D2 be beirom a sort es oszlopot(pl 4.cimszo es 5.nev) es az E2 be meg kiadja a kivant cella tartalmat.

• Delila_1 veterán

  2010-05-03 10:44:16 #7042

  Ú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

  válasz Benarivo üzenetére #7040

  Akkor az A:B tartomány helyett A-tól az utolsó kitöltött oszlopig adod meg a táblázatot, következő paraméter pedig a lekérdezendő adat oszlopszáma (pl. a mobilé 4)
  
  =VLOOKUP(C2,Sheet1!A:D,4,0)

  Írd be a címsort a Sheet2-re. A telefon cím alá jön az azt kikereső Vlookup, a címhez a címé, stb.

  A felhasználó beírja a nevet, és mellette azonnal megjelenik minden hozzá tartozó adat.

• Delila_1 veterán

  2010-05-03 10:40:28 #7041

  Ú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

  Elnézést, nem kapcsoltam be a Konvertálatlan módot.

  =VLOOKUP(C2,Sheet1!A:B,2,0)

• Benarivo csendes tag

  2010-05-03 10:40:28 #7040

  Ú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

  

  Benarivo

  csendes tag

  válasz Delila_1 üzenetére #7039

  es mivan ha nemcsak a nevet hanem a masik keresesi feltetelt is valtoztatni akarom?

• Delila_1 veterán

  2010-05-03 10:34:10 #7039

  Ú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

  válasz Benarivo üzenetére #7038

  Te írd be a C3-ba:

  =VLOOKUP(C2,Sheet1!A,2,0)

  Ez akkor jó, ha a nevet a Sheet2 C2 cellájába írja be a felhasználó.

• Benarivo csendes tag

  2010-05-03 10:29:42 #7038

  Ú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

  

  Benarivo

  csendes tag

  válasz Delila_1 üzenetére #7037

  visszavonva megvan

• Delila_1 veterán

  2010-05-03 10:24:21 #7037

  Ú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

  válasz Benarivo üzenetére #7036

  Nézd meg a súgóban az FKERES (VLOOUP) függvényt, az kell ehhez a feladathoz.

• Benarivo csendes tag

  2010-05-03 10:21:38 #7036

  Ú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

  

  Benarivo

  csendes tag

  hello!
  egy olyan kerdesem lenne,hogy a kovetkezo dolgot meg e lehet csinalni es ha igen hogy..
  van egy tablazatom mondjuk elso sor cellaiban cim telefonszam mobilszam szuletesi datum. elso oszlopban egymas alatt nevek, bela geza jozsi stb...
  namost kene nekem egy uj lapon(munka2/sheet2) egy cucc amibe ha beirom hogy jozsi telefonszam akkor kiadja azt a cella tartalmat(C3) ami hozza tartozik..
  /tudom h valszeg mashogy is meglehet csinalni de nekem ez kene igy/
  koszi a segitseget elore is

• Fire/SOUL/CD félisten

  2010-04-30 09:55:31 #7035

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #7034

  Hali!

  Oksa, így rendben van, érthető. Csupán amikor néztem a makró kódod, akkor az egyből világos volt, hogy az IsEmpty(And kapcsolattal) az felesleges, de azt nem tudtam, hogy kell-e vizsgálni ettől függetlenül egy adott cella "ürességét" is avagy sem.

  Fire.

• Delila_1 veterán

  2010-04-30 09:50:05 #7034

  Ú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

  válasz Fire/SOUL/CD üzenetére #7033

  Nem jó az OR. Azt az oszlopot, ahol 1-2 adat hiányzik, nem kell törölni, csak azt, ahol a 2:40 sorok egyikében sincs adat. Ezért elég, ha az oszlop CountA értéke 0.

• Fire/SOUL/CD félisten

  2010-04-30 09:42:47 #7033

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #7032

  Hali!

  Nem, szerintem kellhet, csak nem And hanem Or...
  Azért írtam, mert az látszott, hogy a CountA, az mindig felülbírálja az IsEmpty-t, ellenben ha külön is kell vizsgálni, hogy egy adott cella üres-e(tartalmaz-e értéket stb), akkor szükség lehet az IsEmpty-re is, viszont ez esetben akkor Or.

  De ezt majd megvizsgálod és elnézést a szörszálhasogatásért...

  Fire.

• Delila_1 veterán

  2010-04-30 09:38:16 #7032

  Ú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

  válasz Fire/SOUL/CD üzenetére #7031

  Igazad van, nem kell. Elég a counta. (Nem rontotta el, csak felesleges).

• Fire/SOUL/CD félisten

  2010-04-30 09:34:33 #7031

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #7030

  Hali!

  Szedd ki az "egyenletből" a IsEmpty(cv.Value)-t, akkor is működik?
  (Mert szerintem igen)

  Fire.

• Delila_1 veterán

  2010-04-30 09:29:33 #7030

  Ú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

  válasz Fire/SOUL/CD üzenetére #7029

  Nosza!
  Működik.

• Fire/SOUL/CD félisten

  2010-04-30 09:27:52 #7029

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 üzenetére #7028

  Hali!

  Ööö, azt az And kapcsolatot én felülvizsgálnám, így hirtelen ránézésre...

  Fire.

• Delila_1 veterán

  2010-04-30 08:52:44 #7028

  Ú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

  válasz k.zola219 üzenetére #7027

  Ímé:

  Sub valami()
  Dim cv As Object
  
  For Each cv In Range("C2:N40")
  If IsEmpty(cv.Value) And Application.CountA(Range(Cells(2, cv.Column), _
  Cells(40, cv.Column))) = 0 Then
  Range(Cells(1, cv.Column), Cells(40, cv.Column)).Select
  Selection.Delete Shift:=xlToLeft
  End If
  Next
  End Sub

• k.zola219 csendes tag

  2010-04-30 06:04:39 #7027

  Ú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

  

  k.zola219

  csendes tag

  válasz Delila_1 üzenetére #7026

  Szia!

  Még egy apróság lenne:
  Hogy módosítsam a kódot ahhoz, hogy tényleg csak akkor törölje az oszlopot ha az összes cella üres az adott oszlopban? Kivédve ezzel azt ha valaki véletlen egy cellát üresen hagyott.

  Köszi az eddigi segítséget!

• Delila_1 veterán

  2010-04-29 10:17:42 #7026

  Ú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

  válasz k.zola219 üzenetére #7020

  A #7022-ben írt
  Range(Cells(2, cv.Column), Cells(40, cv.Column)).Select
  sor helyesen:
  Range(Cells(1, cv.Column), Cells(40, cv.Column)).Select

• Delila_1 veterán

  2010-04-29 10:00:53 #7025

  Ú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

  válasz WildBoarTeam üzenetére #7024

  

• WildBoarTeam senior tag

  2010-04-29 09:58:51 #7024

  Ú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

  

  WildBoarTeam

  senior tag

  válasz Delila_1 üzenetére #7022

  Ugyan miért reagáljon gyorsan?
  Majdnem 100 hsz érkezett azóta, biztos ki akarta várni ezt a szép kerek értéket.

  (#7018) shev7
  Sajnos így van, bármit képesek elrontani
  Ha azt kéred, hogy 3 tizedesig írjon be értéket, akkor tuti egész értéket kapsz, vagy szövegeset. Na jó, tisztelet a kivételnek.

• Delila_1 veterán

  2010-04-29 09:09:23 #7023

  Ú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

  válasz scott_free üzenetére #7019

  Nem látszik a képlet a szerkesztőlécen (védett lapon), ha a cellák formázásánál a Védelem fülön bejelölöd a Rejtett négyzetet.

• Delila_1 veterán

  2010-04-29 07:30:30 #7022

  Ú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

  válasz k.zola219 üzenetére #7020

  Sub valami()
  Dim cv As Object
  
  For Each cv In Range("C2:N40")
  If IsEmpty(cv.Value) Then
  Range(Cells(2, cv.Column), Cells(40, cv.Column)).Select
  Selection.Delete Shift:=xlToLeft
  End If
  Next
  End Sub

  Kérlek, legközelebb tisztelj meg azzal, hogy hamarabb reagálsz a válaszomra. Múltkor 9 perc alatt kaptad meg a megoldást, és csak 8 napra rá írtál. Szívesen segítek, de talán elvárhatom, hogy ne egy bő hét múlva közöld, mire mentél vele. Ne kelljen utólag kikeresnem, mi is volt az eredeti kérdés.

• perfag aktív tag

  2010-04-29 07:07:06 #7021

  Ú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

  

  perfag

  aktív tag

  válasz scott_free üzenetére #7019

  Kijelölöd az első oszlopot amit el szeretnél rejteni (esetedben ez az I oszlop), lenyomod és nyomva tartod a Shiftet, leütöd az End billentyűt (még nem történik semmi), leütöd a jobbra mutató kurzormozgató billentyűt (kijelölted az összes oszlopot), jobb egérgomb, Elrejtés.
  A sorokkal ugyanezt csinálod, csak az End után a lefelé billentyű jön.
  Nézd meg a Súgóban az End + billentyűkombinációkat, még a Windows előtti időkből használjuk, nagyon hasznosak.

• k.zola219 csendes tag

  2010-04-29 02:35:07 #7020

  Ú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

  

  k.zola219

  csendes tag

  válasz Delila_1 üzenetére #6929

  Szia!

  Köszi a segítséget!

  Annyival módosult a történet, hogy az üres cellák oszloponként ismétlődnek.
  Ezeket az oszlopokat kellene úgy kitörölnöm, mint amikor kézzel kijelölök cellákat, ott a cellák törlését választom majd azt, hogy cellák eltolása balra. Viszont ebben az esetben nemcsak a kijelölt tartományt kell törölnöm, hanem az eggyel fölötte lévő sort is. Pl.: ha B240 a tartomány és C2-től C40-ig üres cellák vannak akkor C1-től C40-ig kell kitörölnöm a fentebb említett módon a cellákat.

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

• scott_free senior tag

  2010-04-28 23:50:13 #7019

  Ú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

  

  scott_free

  senior tag

  válasz ro_bert17 üzenetére #7012

  köszi, végülis megoldottam fapadosan: fehér szövegszín + a zárolt cellák kijelölésének tiltásával.

  viszont egy újabb kérdésem is lenne: ha pl. csak 8 oszlopot és 16 sort használok, akkor a többit el lehet valahogyan tüntetni, hogy nem látszódjanak? (tehát mintha egy fehér lapon lenne az aktív táblázat)

• shev7 veterán

  2010-04-28 16:28:25 #7018

  Ú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

  

  shev7

  veterán

  válasz WildBoarTeam üzenetére #7014

  ha nem akarom hogy belepiszkaljanak, akkor nem excel tablat kuldok a usernek, hanem egy webes formot, amit nem tud elrontani (tudom azt is el tudja rontani)

• Delila_1 veterán

  2010-04-28 14:25:32 #7017

  Ú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

  válasz zUlU53 üzenetére #7015

  Másik megoldás a sorszámozás, ahogy az utóbbi napokban feltett kérdéseidre is az volt a válasz. A sorszámra hivatkozhatsz egy INDIREKT függvénnyel.

  

• WildBoarTeam senior tag

  2010-04-28 12:12:58 #7016

  Ú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

  

  WildBoarTeam

  senior tag

  válasz zUlU53 üzenetére #7015

  Hát a leggyaloglósabb, ha első lépésként 6 cellával alá kihozod a jó eredményt, majd a képletet másolod és irányított beillesztéssel rakod át a másik alá.(bár a szerkesztőlécen történő képletkijelölés és beillesztés is ugyanezt adja, mivel ilyenkor a hivatkozott cellák nem változnak).

• zUlU53 tag

  2010-04-28 11:50:06 #7015

  Ú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

  

  zUlU53

  tag

  Sziasztok,

  ezen a héten még csak a második buta kérdésnél tartok.

  A problémám az lenne, hogy egy táblázat bizonyos helyére súlyozott átlagot kell számolnom. Ez rendben is van. Szeretném még az alatta lévő 3 cellára alkalmazni, ámde a táblázat azon része, ahonnan az adatokat szedem, az nem 1-1 sorral van lejjebb, mint ahogy a "húzás" nyomán számolja a gép, hanem mindig 6 cellával lejjebb van a számomra kellő alapadat.
  Tehát azt hogy lehet megcsinálni, hogy az eredmény szempontjából egyetlen lefelé történő cellaugrásnál a hivatkozott adatok mindig 6-ot csússzanak? Lehet, hogy csak én értem, amit kérdezek, szóval remélem érthető voltam. Minden segítséget előre is köszönök.

• WildBoarTeam senior tag

  2010-04-28 11:40:55 #7014

  Ú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

  

  WildBoarTeam

  senior tag

  válasz shev7 üzenetére #7011

  Így van, ro_bert17-nek teljesen igaza van....
  Ha valamibe hagyod belepiszkálni a júzert, akkor meg is teszi. Sajnos ez mindenkire jellemző (főleg azokra a felhasználókra, akik nem értik mit is látnak, ezért belepiszkálnak).
  Előfordul, hogy kiküldök egy táblázatot 5 embernek, akkor 5 verziót kapok belőle vissza és szerkeszthetem újra az egészet. (nem egy eset volt már).
  Sőt egyszer úgy hagytam az szerkesztőt (XML), amíg elmentem kajálni és mire visszaértem kitörölték a tartalmát, elmentették, és bedöglött a rendszer, mert újraindították azt a gépet is és nem találta a fájlt....Még jó, hogy mindig egy biztonsági mentéssel kezdek neki az ilyen melónak...

• perfag aktív tag

  2010-04-28 10:54:33 #7013

  Ú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

  

  perfag

  aktív tag

  válasz scott_free üzenetére #7010

  Makróval nagyon el tudod rejteni, a lapnak beállítasz egy xlVeryHidden tulajdonságot.

  Sub Rejt()
  Sheets("Munka3").Visible = xlVeryHidden
  End Sub

  Delila (#6948-ese elrejti a lapot, de a Formátum, Lap, Felfedés ...-sel elő tudod csalogatni, az xlVeryHidden-est csak makróval.

• ro_bert17 őstag

  2010-04-28 10:52:30 #7012

  Ú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

  

  ro_bert17

  őstag

  válasz scott_free üzenetére #7010

  Nem csak a súgót nem árt olvasgatni, de az is hasznos sokszor, ha itt visszaolvasol!
  Pl.: [link]

  Ja és ha nem menne a makró életre keltése: [link]

  (#7011) shev7: Sajnos egy munkahelyen bármi megtörténik. Pl. kiadsz egy táblázatot, hogy töltsék ki, erre visszaküldenek egy teljesen más struktúrájú word!! táblázatot. Szerinted?

• shev7 veterán

  2010-04-28 10:44:03 #7011

  Ú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

  

  shev7

  veterán

  válasz scott_free üzenetére #7010

  sosem ertettem, hogy emberek miert akarjak az adatokat elrejteni. Ha nem akarod hogy zavarjon berakod az utolso munkalapra, nem fog ott zavarni senkit...

• scott_free senior tag

  2010-04-28 10:28:55 #7010

  Ú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

  

  scott_free

  senior tag

  válasz scott_free üzenetére #7009

  hogyan tudom a leghatékonyabban elrejteni és zárolni a táblázat egy részét, vagy az egyik munkalapot? (ami a számításhoz szükséges forrásadatokat tartalmazza)

  azt láttam a súgóban, hogy a Lapvédelemnél be tudom állítani a zárolást, de a Formátum/Lap/Elrejtés menü nem elég hatékony, hiszen bármikor vissza lehet állítani és akkor újra látszanak az adatok.
  (próbáltam fehér alapon fehér szöveget írni, de a kijelölésnél már látszanak az adatok)

• scott_free senior tag

  2010-04-28 08:23:55 #7009

  Ú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

  

  scott_free

  senior tag

  válasz WildBoarTeam üzenetére #7007

  igen, ezt a $-módszert közben megtaláltam a neten, kellett is!

• scott_free senior tag

  2010-04-28 08:22:22 #7008

  Ú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

  

  scott_free

  senior tag

  válasz perfag üzenetére #7005

  köszönöm, ez nagyon szuper!

  az a gond a súgóval, hogy ha nem tudom pár szóban, excel kifejezésekkel megfogalmazni, hogy mit is keresek, akkor nem ad segítséget. pláne annak, aki évente kb. egyszer akarja használni az excelt.

• WildBoarTeam senior tag

  2010-04-28 08:17:24 #7007

  Ú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

  

  WildBoarTeam

  senior tag

  válasz scott_free üzenetére #7003

  Pont ezt írtam volna, amit Delila_1
  És ugye azért is jobb a duplaklikk mert, ha több száz vagy ezer sorod van, akkor elég macerás görgetni... Ha meg egy-két üres sor mégis akad benne, azt áthúzod és utána megint lehet duplaklikkelni.
  Még egy tipp:
  Ha pl konkrétan egy cellára akarsz hivatkozni a egy képletben, akkor tedd az oszlopazonosító és a sorazonosító elé is a $ jelet. Ezzel fixálod a helyzetét (pl.: C1-be: =$A$1*B1). Ezután bárhova másolod a képletedet, mindig ugyanoda ($A$1-re) fog mutatni a képleted (pl.: ha átmásolod H4-be, akkor eredmény: =$A$1*G4).
  Ha csak az oszlopot akarod fixálni, akkor akkor csak az oszlopjelölő elé teszed a $ jelet: $A1
  (ilyenkor, ha oszlopot váltasz, akkor is az A oszlopra hivatkozik, csak a sor változik)
  Ha a sort akarod fixálni, akkor meg a sorjelölő elé: A$1 (itt csak az oszlop változik, a sor fix)

  Amúgy ezt akkor fogod megérteni jobban, ha kipróbálod.
  Hasznos, ha egy sok képletből álló táblád van, és nem akarod egyesével szerkesztgetni a képleteidet.

• Delila_1 veterán

  2010-04-28 07:39:22 #7006

  Ú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

  válasz perfag üzenetére #7004

  Még húzni sem kell. A kitöltő jelen duplaklikk lemásolja a képletet addig, ameddig a mellette lévő oszlopban valamilyen értéket talál.

• perfag aktív tag

  2010-04-28 07:16:51 #7005

  Ú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

  

  perfag

  aktív tag

  válasz scott_free üzenetére #7003

  Ha jól látom C oszlopban akarsz maradni. Használd az Ofszet függvényt és használd a Súgót, erre van kitalálva!
  =C9+OFSZET(C9;9-B1;0)
  C9-hez hozzáadja a C9-től B1-nyivel feljebbi cella értékét, a 0-val azt adod meg, hogy az oszlopon belül maradsz.

• perfag aktív tag

  2010-04-28 07:06:56 #7004

  Ú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

  

  perfag

  aktív tag

  válasz scott_free üzenetére #7000

  Jézusom! Egy kijelölt cella tartalmának másolásához fogjuk meg és húzzuk vízszintes vagy függőleges irányba a cella jobb alsó sarkában található kitöltő jelet.
  A kitöltő jelen az egérmutató fekete kereszt alakúvá változik, csak ekkor foghatjuk meg a kitöltő jelet. A művelet eredménye a cella tartalmától függően másolás vagy egy sorozat létrehozása lesz.
  

• scott_free senior tag

  2010-04-27 23:18:55 #7003

  Ú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

  

  scott_free

  senior tag

  na még egy: meg lehet adni egy cellát úgy, hogy pl. egy művelettel jönne ki a sor száma?

  pl. C10=C9+CX, ahol X=9-B1

• scott_free senior tag

  2010-04-27 22:43:35 #7002

  Ú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

  

  scott_free

  senior tag

  válasz ro_bert17 üzenetére #7001

  köszi!

  jó az aláírásod

• ro_bert17 őstag

  2010-04-27 21:46:43 #7001

  Ú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

  

  ro_bert17

  őstag

  válasz scott_free üzenetére #7000

  Jelen esetben: Ctrl+c => ctrl+v

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