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

• #14072 föccer nagyúr mizu_ #14065

  Új Válasz 2012-06-19 23:27:20 #14072

  Új hozzászólás

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

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz mizu_ #14065 üzenetére

  Valamiért a hibakezelés nem akar működni, de mndegy, a célnak így is megfelel.

  B1-be
  , ha A oszlopban vannak az adatok:

  =HA(SZÖVEG.KERES("adat2";A1)>0;"Talált!";"Nincs találat!")

  Ezután autoszűrő bekapcsol, leszűrsz a "Talált kifejezésre a B olszopban, majd copy-paste az új munkalapra.

  üdv, föccer

• #14056 föccer nagyúr mizu_ #14054

  Új Válasz 2012-06-19 22:46:29 #14056

  Új hozzászólás

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

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz mizu_ #14054 üzenetére

  Sima =HA(keres()<>0;igaz;hamis) függvénnyel is meg lehet csinálni , bár nem egészen értem, hogy mire gondolsz.

  üdv, föccer

• #6096 ulrik19 tag mizu_ #6095

  Új Válasz 2010-01-22 10:58:19 #6096

  Új hozzászólás

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

  Privát üzenet küldése

  

  ulrik19

  tag

  válasz mizu_ #6095 üzenetére

  a létrehozási dátumot az adatfile.DateCreated tartalmazza.
  (persze megfelelő hozzáférési jog kell a filehoz)

  Dim adatfile As Variant, FSO As Variant
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set adatfile = FSO.GetFile("hely\file_neve")
  Msgbox(adatfile.DateCreated)

• #6095 mizu_ tag mizu_ #6074

  Új Válasz 2010-01-22 08:48:04 #6095

  Új hozzászólás

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

  Privát üzenet küldése

  

  mizu_

  tag

  válasz mizu_ #6074 üzenetére

  Up.

• #5642 Fire/SOUL/CD félisten mizu_ #5633

  Új Válasz 2009-11-13 18:13:53 #5642

  Új hozzászólás

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

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz mizu_ #5633 üzenetére

  Hali!

  Mivel makró után érdeklődsz ezért feltételezem, hogy azt nem kell elmagyarázni Neked, hogy hogy kell bevinni egy makró kódot.
  Amint látod, az alábbi makró egy CommandButton-hoz tartozik.

  Private Sub CommandButton1_Click()
  
  'A hálózati Excel fájl útvonala és neve
  Dim MyNetworkExcelFilename As String
  MyNetworkExcelFilename = "d:\_developer\_PH\Fire\mizu_\halozati_fajl\leltar.xls "
  'MyNetworkExcelFilename = "http://www.firelapja.hu//leltar.xls"
  
  'Ennek az Excel fájlnak a neve, ami futtatja a makrót
  Dim MyCurrentExcelFilename
  MyCurrentExcelFilename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(1, ThisWorkbook.Name, ".", vbTextCompare) + 1)
  
  'Forrás munkafüzet
  Dim MySourceWorkbook As Workbook
  
  'Forrás munkalap neve, amiből másolunk. Ezen a munkalapon vannak a kimutatás adatai
  Dim MySourceSheet As String
  MySourceSheet = "Munka1"
  
  'Cél munkalap neve, amibe másolunk. Automatikusan létrehozza a makró ezt a munkalapot
  Dim MyDestinationSheet As String
  MyDestinationSheet = "Adatok"
  
  'Megnyitjuk az állományt
  Set MySourceWorkbook = Workbooks.Open(Filename:=MyNetworkExcelFilename)
  
  'Átmásoljuk a kívánt munkalap tartalmát, a másikba, mégpedig úgy,
  'hogy egy új munkalapot hozunk létre a munkafüzet végén
  Sheets(MySourceSheet).Copy after:=Workbooks(MyCurrentExcelFilename).Sheets(Workbooks(MyCurrentExcelFilename).Sheets.Count)
  
  'Bezárjuk a hálózatról megnyitott Excel fájl, méghozzá úgy, hogy nem jelenik meg
  'semmilyen kérdés bezáráskor(például a módosítások mentése)
  MySourceWorkbook.Close False
  
  'Az előbbiekben létrehozott munkalapot átnevezzük a kívánt névre, amit korábban megadtunk(itt most "Adatok"ra)
  ActiveSheet.Name = MyDestinationSheet
  
  End Sub

  A példában nem internetről nyitottam meg fájlt, de természetesen ott van a forrásban is az elérés formátuma("http://www.firelapja.hu//leltar.xls") és természetesen működik is. (Persze ez nem létező oldal)

  Ha valami nem lenne tiszta, akkor írj.

  Fire.

• #5567 Delila_1 veterán mizu_ #5562

  Új Válasz 2009-10-28 06:08:36 #5567

  Új hozzászólás

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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz mizu_ #5562 üzenetére

  Az űrlap vezérlőelemek közül is alkalmazhatod a kombi panelt (lenyílót). Azért ezt ajánlom, mert könnyebb kezelni, mint az ActiveX vezérlőt.
  A Vezérlő formázásánál (jobb klikkre jön elő) a Vezérlő fülön megadod a Bemeneti tartomány helyét a füzetedben, a Cellacsatoláshoz azt a cellát, ahova a számot szeretnéd íratni.
  A csatolt cellában az a sorszám jelenik meg, ahányadik a kiválasztott tétel a bemeneti tartományodban. Ez azt jelenti, hogy nem lehet 0, a minimális értéke 1.

• #4638 Delila_1 veterán mizu_ #4635

  Új Válasz 2009-03-12 19:34:42 #4638

  Új hozzászólás

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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz mizu_ #4635 üzenetére

  Egy egysoros makróval megoldható.

  Sub Rejt()
  Selection.EntireColumn.Hidden = True
  End Sub

  Kitehetsz egy új ikont, vagy az Űrlapok eszköztárról egy gombot, és valamelyikhez hozzárendeled a makrót. Egy, vagy több oszlop elrejtésére is alkalmas.

• #4636 Fehér Mancs tag mizu_ #4635

  Új Válasz 2009-03-12 15:30:40 #4636

  Új hozzászólás

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

  Privát üzenet küldése

  

  Fehér Mancs

  tag

  válasz mizu_ #4635 üzenetére

  ctrl+0

• #4573 Delila_1 veterán mizu_ #4572

  Új Válasz 2009-03-03 08:59:09 #4573

  Új hozzászólás

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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz mizu_ #4572 üzenetére

  Nézd meg a #3932-es hozzászólást.

• #4548 Lehdog csendes tag mizu_ #4547

  Új Válasz 2009-02-25 11:03:09 #4548

  Új hozzászólás

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

  Privát üzenet küldése

  

  Lehdog

  csendes tag

  válasz mizu_ #4547 üzenetére

  Szia!

  Ha jól értem a problémát, én két lépésben próbálnám a helyedben.
  Első lépésben HA függvénybe ágyazva el tudod helyezni a vagy kritériumokat. Aztán az igaz értékeket számoltatod össze a darabtelivel.

  Leh

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