Aktív témák

• #351 matekmatika tag MartinIsti #350

  2006-06-02 23:40:11 #351

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  matekmatika

  tag

  válasz MartinIsti #350 üzenetére

  Próbálom felfogni amit írtál, de nem egészen sikerül Szóval azokat a sorokat törölnéd ahol mindhárom oszlopban ugyanaz az érték van? Mert ha igen akkor:
  
  For i = 1 to x {x:ahány sorod van}
  If Cells(i,1)=Cells(i,2) And Cells(i,1)=Cells(i,3) Then {feltételezve, hogy az 1.,2.,3. oszlop}
  Rows(i,i).Select
  Selection.Delete Shift:=xlUp
  End If
  Next i
  Ha nem erre gondoltál fejtsd ki mégegyszer
  
  A másik:
  Cells.Find(What:=''keresett karaktersor'', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
  xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
  , SearchFormat:=False).Activate
  
  A ''keresett karaktersor'' helyére beírt (változó is lehet, tehát mondjuk egy másik cella tartalma, amihez hasonlítani szeretnéd)karaktersorozat a keresési érték, és ha talál a munkalapon ilyen sorozatot akkor ebben az esetben kijelöli. De tehetsz vele mást is, mondjuk törölheted
  
  [Szerkesztve]

• #349 tothbe addikt MartinIsti #348

  2006-06-01 15:30:33 #349

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  tothbe

  addikt

  válasz MartinIsti #348 üzenetére

  a 2.-re:
  Ha az fkeres utolsó paraméterének hmis-at vagy 0-t adsz akkor csak teljes egyezöségnél lesz találat részlegesnél nem.
  a 3.-ra:
  Én itt is az fkeres-t szoktam segitségül hivni,mégpedig úgy, hogy az ismétlödö cellák oszlopa mellé beszúrok eg üres oszlopot a következö függvénnnyel:
  fkeres (a1,a2:a100,1,0) ez van pl az elsö sorban ha az ismétlödö oszlop az A, 100 sor van és a második sor igy néz ki: fkeres (a2,a3:a100,1,0)
  Az utolsó sorba pedig már nem kerül a képlet, hiszen azt nincs hol keresni.
  És ahol ez a képlet eredményt ad vissza, azokat a sorokat törlöm, a végére minden 1x marad meg, utána törlöm az fkeres-es oszlopomat.

• #347 MartinIsti csendes tag MartinIsti #346

  2006-05-29 15:27:10 #347

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  MartinIsti

  csendes tag

  válasz MartinIsti #346 üzenetére

  Jól elbeszélgetek magammal, de találtam is megoldást a gondomra
  
  If InStr(Cells(x, 1), ''2103'') > 0 Then
  
  Pont ilyesmit kerestem. Hátha másnak is segít, aki hozzám hasonlóan kezdő, és nem ismerte ezt a módszert.

• #338 mahatma aktív tag MartinIsti #337

  2006-05-26 13:11:22 #338

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  mahatma

  aktív tag

  válasz MartinIsti #337 üzenetére

  köszi, elboldogulok az angollal, megnézem ezt az oldalt, köszi mégegyszer

• #313 matekmatika tag MartinIsti #311

  2006-05-23 20:34:41 #313

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  matekmatika

  tag

  válasz MartinIsti #311 üzenetére

  Vagy én vagyok nagyon türelmetlen, vagy neked van igazad.

• #312 matekmatika tag MartinIsti #311

  2006-05-23 20:16:59 #312

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  matekmatika

  tag

  válasz MartinIsti #311 üzenetére

  Szia. Nosza akkor egy neked való feladat Adott egy munkafüzet, kb. 20-22 munkalappal. A munkalapok nevei az éppen aktuális napi dátum, napjai szerint lett elnevezve. Tehát elvileg 01, 02, ...30 vagy 31 esetleg 28 vagy 29, a hónap napjainak számától függően. A munkafüzet meg vagyon nyitva. Szépen sorba vagy aktívvá kell tennem a munkalapokat, mert szöszmötölni szeretnék makróval rajtuk, de ez nem nagyon tetszik, jobb lenne a jó bevált set megnyit=worksheets(''munkalapneve'') variáció. És akkor a bökkenők: a munkalap neve helyén használhatok-e változót, ha igen hogyan?, mert csak jobb lenne ezt egy ciklusban. (máshogy neki sem kezdenék) Igen ám de a munkalap nevei gykorlatilag nem számértékek, hanem szöveg. A másik probléma, hogy nem minden nap szerepel a munkafüzetben. A vasárnapok egyátalán és sokszor a szombat sem stb. Ha olyan munkalapot nyitnék meg, amely nincs, akkor hibaüzenettel le fog állni. Összességében tehát jobb lenne valami olyasmi, amely megnézi, hogy egyátalán milyen munkalapok vannak a munkafüzetben, és ezeket egy változóban kezelni tudja, vagyis majd én utána
  Szóval?
  Előre is köszi.
  (persze másoktól is szívesen veszem)

• #309 lapa veterán MartinIsti #308

  2006-05-19 14:34:30 #309

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz MartinIsti #308 üzenetére

  én még nem próbáltam ilyesmit, de kósza ötlet:
  
  vb editor súgójában AddressLocal Property. ahogy nézem ő szövegként kéri be a tartományt, ezzel lehet tudsz neki olyat gyártani amit szeretne.

• #307 tom42 csendes tag MartinIsti #304

  2006-05-17 08:40:55 #307

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  tom42

  csendes tag

  válasz MartinIsti #304 üzenetére

  Legy szives kuld el ha tudod a tom42king@yahoo.com vagy a tomtaylor@clicknet.ro cimre. Sajnos a konyvet nem tudom kikolcsonozni sem mert nem tartozkodom momentan az orszagban.
  Koszi!

• #272 Kituggya csendes tag MartinIsti #271

  2006-04-28 09:14:15 #272

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Kituggya

  csendes tag

  válasz MartinIsti #271 üzenetére

  Bocs, hogy eddig nem válaszoltam, most próbálgatom. Én teljesen kezdő vagyok. A Visual basic editorban bemásoltam az egészet amit küldtél egy új modulba (insert module)
  Utána Excelben futtatni akartam és azt írta, hogy nem tudja futtatni mert sintax error.
  Rosszul csináltam.
  (Van valami leírás vagy könyv erről?)
  Köszönöm egyébként, hogy válaszoltás és segítesz.
  

• #266 lapa veterán MartinIsti #265

  2006-04-26 17:52:56 #266

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz MartinIsti #265 üzenetére

  Sub x()
  Cells(3, 3).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(2, 2)))
  End Sub
  

Aktív témák