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

• #30340 PETEE78 senior tag [HUN]Tyson #30338

  Új Válasz 2016-02-01 16:19:02 #30340

  Ú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

  

  PETEE78

  senior tag

  válasz [HUN]Tyson #30338 üzenetére

  szia!

  adatok fül/szűrő/speciális.

  más helyre másolja kijelöl
  listatartomány, ha van fejléc a2:a8
  szűrőtartomány b2:b8
  hova másolja c2:c8

  majd c oszlop kijelöl fejléc nélkül.
  ezután adatok fül ismétlődések eltávolítása
  folytatja az aktuális kijelöléssel
  ismétlődések eltávolítása gomb

  ennyi...

  üdv,
  Peti

• #30339 bsh addikt [HUN]Tyson #30338

  Új Válasz 2016-02-01 15:52:07 #30339

  Ú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

  

  bsh

  addikt

  válasz [HUN]Tyson #30338 üzenetére

  adatok - rendezés és szűrés - speciális - irányított szűrés

• #9604 perfag aktív tag [HUN]Tyson #9603

  Új Válasz 2011-03-03 14:22:43 #9604

  Ú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

  

  perfag

  aktív tag

  válasz [HUN]Tyson #9603 üzenetére

  Tegnap amihez hozzányúltam biztos, hogy elrontottam, de ma már ma van ..

  Ötlet: itt és itt, vagy itt nézd meg. Nem próbáltam ki.

• #5067 Delila_1 veterán [HUN]Tyson #5066

  Új Válasz 2009-06-17 14:12:17 #5067

  Ú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 [HUN]Tyson #5066 üzenetére

  Pont egy hiba után teszed fel ezt a költői kérdést?!

• #5065 Delila_1 veterán [HUN]Tyson #5064

  Új Válasz 2009-06-17 14:02:47 #5065

  Ú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 [HUN]Tyson #5064 üzenetére

  A Right szót írd át Left-re, az majd a végéről csípi le az utolsó pontosvesszőt és felesleges szóközt.

  Bocsi, elírtam, és nem figyeltem fel a hibára.

• #5054 Delila_1 veterán [HUN]Tyson #5053

  Új Válasz 2009-06-16 13:48:41 #5054

  Ú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 [HUN]Tyson #5053 üzenetére

  Most az adataid az A1-ben kezdődnek. Szúrj be elé egy sort, és az új A1-be adj valami címet (pl. e-mail), mert az irányított szűréshez ez szükséges.Állj az A1-en.
  Adatok/Szűrő/Irányított szűrő, OK.
  Más helyre másolja.
  A listát automatikusan kijelöli.
  A "Hova másolja" rovatba írj E1-et.
  Jelöld be a "Csak az egyedi rekordok megjelenítése" négyzetet.
  OK
  E2-től lefelé minden cím csak egyszer szerepel.
  Most töröld ki az első sort, hogy cím nélkül szerepeljenek az oszlopok.
  Vidd be az új makrót, és indíthatod.

  Sub email()
  Dim a, b, c, d As Long
  c = 1: d = 100
  
  For a = 1 To 28
  For b = c To d
  Cells(a, 2) = Cells(a, 2) & Cells(b, 5) & "; "
  Next
  Cells(a, 2) = Right(Cells(a, 2), Len(Cells(a, 2)) - 2)
  c = a * 100 + 1: d = d + 100
  Next
  End Sub

• #4919 Fehér Mancs tag [HUN]Tyson #4918

  Új Válasz 2009-05-07 15:26:25 #4919

  Ú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 [HUN]Tyson #4918 üzenetére

  Azt tudom, hogy meg lehet valósítani Outlookban is, de nem tudom, hogy hogyan (Nálunk Lotus Notes-ból küldtünk ki generált leveleket csatolmányokkal). Többiek / Google biztos tud segíteni.

• #4904 Fehér Mancs tag [HUN]Tyson #4902

  Új Válasz 2009-05-06 17:17:03 #4904

  Ú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 [HUN]Tyson #4902 üzenetére

  E-mailt akarsz küldeni ? Makróval lehet automatikusan is generálni ilyet, nem csak a címeket összefűzni...

• #4903 Delila_1 veterán [HUN]Tyson #4902

  Új Válasz 2009-05-06 17:15:49 #4903

  Ú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 [HUN]Tyson #4902 üzenetére

  Szívesen.

• #4893 Delila_1 veterán [HUN]Tyson #4891

  Új Válasz 2009-05-05 15:58:47 #4893

  Ú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 [HUN]Tyson #4891 üzenetére

  Egy-egy cella 32767 karakter bír el. A 100 cím 3-4000 karakternél nem lesz több.
  Itt a makró hozzá, ami Fire beígért Mintha ő nem tudná megírni!

  Sub email()
  Dim a, b, c, d As Long
  c = 1: d = 100
  
  For a = 1 To 28
  For b = c To d
  Cells(a, 2) = Cells(a, 2) & "; " & Cells(b, 1)
  Next
  Cells(a, 2) = Right(Cells(a, 2), Len(Cells(a, 2)) - 2)
  c = a * 100 + 1: d = d + 100
  Next
  End Sub

• #4892 Fire/SOUL/CD félisten [HUN]Tyson #4891

  Új Válasz 2009-05-05 15:56:04 #4892

  Ú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 [HUN]Tyson #4891 üzenetére

  Hali!

  A makrót majd pillanatok alatt elkészíti Delila_1 vagy FehérMancs....
  (vagy valaki más... )

  Nem tudom hányas verziót használsz(2007, 2003, vagy korábbi)
  A 2007-ben egy cellában 32k karakter fér el illetve ennyit is tud megjeleníteni.
  A 2003-ban egy cellában 32k karakter fér el de csak 1024-et jelenít meg. (Ha jól emlékszem)
  (a még korábbiakban(2000 elöttiek) meg azt hiszem, hogy csak 255 karakter fért el)

  Fire.

• #1053 matekmatika tag [HUN]Tyson #1052

  Új Válasz 2006-03-14 20:17:59 #1053

  Ú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

  

  matekmatika

  tag

  válasz [HUN]Tyson #1052 üzenetére

  Sziasztok!
  Így:
  
  =a1&'' ''&b1
  
  és így:
  
  =a1&''/''&b1
  
  Nekem is lenne egy kérdésem:
  Adva van egy cella (jelen esetben a B33), amelyben egy cellahivatkozás jelenik meg, különböző függvények segítsége révén, pl.: ''AF2''. Hogyan tudnám megcsinálni, hogy egy másik munkalapon, egy beviteli mezőbe beírt értéket, a fentebb említett cellahivatkozás szerinti helyre (AF2) íródjon?
  Makróval próbáltam már megcsinálni, amit aztán egy parancsgombhoz rendeltem, de hibaüzenettel leáll:
  
  'Private Sub CommandButton1_Click()
  Range(''B33'').Select
  Application.CutCopyMode = False
  Selection.Copy
  Application.Goto Reference:=''R1C32''
  Sheets(''másik munkalap'').Select
  Application.CutCopyMode = False
  Sheets(''kiinduló munkalap'').Select
  ActiveCell.FormulaR1C1 = ''0''
  Range(''AF2'').Select
  End Sub
  
  Persze az se baj, ha makró nélkül menne, viszont fontos, hogy csak akkor hajtódjon végre, amikor engedélyezem, vagyis mondjuk egy parancsgomb megnyomásakor.
  Olyan függvényeket találtam többet is amivel egy hivatkozott cella tartalmát megkeresi, kiolvassa, de olyat nem amely oda be is írna egy előre beadott értéket (szöveg). Ez a makrós varia meg megint nem akar működni.
  Segíségeteket előre is köszönöm.
  

• #1051 X-COM nagyúr [HUN]Tyson #1050

  Új Válasz 2006-03-14 11:06:03 #1051

  Ú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

  

  X-COM

  nagyúr

  válasz [HUN]Tyson #1050 üzenetére

  =a1&b1

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