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

• #15156 Delila_1 veterán Attas #15155

  Új Válasz 2012-10-06 14:09:55 #15156

  Ú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 Attas #15155 üzenetére

  Privátban ment a válasz, azt előbb vettem észre.

• #15155 Attas aktív tag Attas #15153

  Új Válasz 2012-10-06 09:17:51 #15155

  Ú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

  

  Attas

  aktív tag

  válasz Attas #15153 üzenetére

  Már csak ez kell: Még egy két apróság. Az UserForm1 elhelyezett Commandbuttonnak milyen kód kell, hogy bezárja az UserForm1 ablakot és egy makrót elindítson? És egy TexBox nál milyen kód kell hogy megjelenítse egy adott cella tartalmát?

• #15152 Delila_1 veterán Attas #15151

  Új Válasz 2012-10-05 19:43:46 #15152

  Ú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 Attas #15151 üzenetére

  Gratulálok! Akkor rendbejöttek a dolgok.

• #15148 Delila_1 veterán Attas #15147

  Új Válasz 2012-10-05 18:08:40 #15148

  Ú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 Attas #15147 üzenetére

  Szívesen.

• #15146 Delila_1 veterán Attas #15145

  Új Válasz 2012-10-05 17:54:19 #15146

  Ú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 Attas #15145 üzenetére

  sheets("lap_neve").range("CellTip")= ...

• #15144 Delila_1 veterán Attas #15142

  Új Válasz 2012-10-05 17:23:12 #15144

  Ú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 Attas #15142 üzenetére

  A MATCH (hol.van) függvény megkeresi az 5. (E) oszlopban a kiválasztott adat sorát, és ebben a sorban, a D oszlopban található értéket viszi be a B2-be, vagy ahogy elnevezted ezt a cellát.

• #15140 Delila_1 veterán Attas #15137

  Új Válasz 2012-10-05 15:52:13 #15140

  Ú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 Attas #15137 üzenetére

  A bővítményeket 2007-től Az Excel beállításainál találod.
  Kezelés: Excel bővítmények, Ugrás. Ott kapcsold be a 2 Analysis kezdetűt, hogy működjön a MATCH függvény.

• #15138 Delila_1 veterán Attas #15137

  Új Válasz 2012-10-05 15:35:41 #15138

  Ú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 Attas #15137 üzenetére

  Elküldöm, ha megadod a címet.

  Azt már látom, hogy a Start-ban a listát rosszul adtad meg.

• #15135 Delila_1 veterán Attas #15133

  Új Válasz 2012-10-05 15:05:17 #15135

  Ú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 Attas #15133 üzenetére

  A ControlSource és RowSource rovatokat hagyd üresen, a Start makró adja meg a listbox feltöltési értékeit.

• #15134 Delila_1 veterán Attas #15133

  Új Válasz 2012-10-05 14:55:53 #15134

  Ú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 Attas #15133 üzenetére

  Duplaklikket neki!

  A Start makró modulba kerül, a másikat úgy vidd be, hogy a VBE-ben a listboxra klikkelsz.

  A2 és B2 cellában kell megjelenni az adatoknak. A következő kiválasztás adatai az A3 és B3 cellában lesznek.

• #15131 Delila_1 veterán Attas #15130

  Új Válasz 2012-10-05 14:36:59 #15131

  Ú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 Attas #15130 üzenetére

  Mivel nem árultad el, hol lesznek az adatok, a D2:E8 tartományra írtam meg, majd átalakítod a makrókat.

  Sub Start()
  UserForm1.ListBox1.List = Sheets("Munka1").Range("E2:E8").Value
  UserForm1.Show
  End Sub

  Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim sor%, usor%, nev$
  sor% = Me.ListBox1.ListIndex + 1
  usor% = Cells(Rows.Count, "A").End(xlUp).Row + 1
  nev$ = Me.ListBox1.List(Me.ListBox1.ListIndex)
  Range("B" & usor%) = nev$
  Range("A" & usor%) = Range("D" & Application.WorksheetFunction.Match(nev$, Columns(5), 0))
  End Sub

• #15129 Delila_1 veterán Attas #15128

  Új Válasz 2012-10-05 14:15:10 #15129

  Ú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 Attas #15128 üzenetére

  Honnan lehet tudni, hogy a listboxból kiválasztott elem melyik típushoz tartozik?

  Szerk.: azt hiszem, felfogtam. A D2:E8 táblázat helye fix?

• #15125 Delila_1 veterán Attas #15124

  Új Válasz 2012-10-05 10:23:03 #15125

  Ú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 Attas #15124 üzenetére

  Például így oldhatod meg.
  A listbox tartománya a Munka1 lap A1:A10.

  Ezzel indítod a userformot.

  Sub start()
  UserForm1.ListBox1.List = Sheets("Munka1").Range("A1:A10").Value
  UserForm1.Show
  End Sub

  A listbox kiválasztott elemén duplaklikkre beírja az elemet a füzet aktuális cellájától egy cellával jobbra.

  Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim sor As Integer
  sor = Me.ListBox1.ListIndex + 1
  Selection.Offset(, 1) = Range("A" & sor)
  End Sub

  A +1 azért kell, mert az index nullával kezdődik.

• #15111 Fire/SOUL/CD félisten Attas #15108

  Új Válasz 2012-10-03 21:10:27 #15111

  Ú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 Attas #15108 üzenetére

  Űrlap vezérlőjét nem lehet állítani. használj ActiveX vezérlőt(CommandButton), jobb égér rajta/Tulajdonságok/ és a BackColor tulajdonságnál módosíthatod a színét.
  (ForeColor meg az írás színe)

  Dj Sügi
  Ha több feltétel nem lesz, azaz nem lesz még, hogy 15M feletti érték is lesz, akkor sima cellaformázással is kivitelezhető.
  Persze az kérdéses számomra, hogy pl a 999999-ből hogyan is lesz 999E, mert 999000 esetén még érthető.

  Mindegy, azért beteszem a formázást, arra ügyelj, hogy a formázásban több szóköz van egymás után, nem véletlenül, viszont ha pl Firefox-ot használsz, akkor amikor kimásolod majd a formátumot, az eltávolítja a felesleges szóközöket, ami ebben az esetben hibás működést von majd maga után.
  Chrome vagy Dragon rendesen tudja másolni vagy kézzel bepötyögöd.

  [<1000]###" fő";[<1000000]#####0 " E";#######0 " M"

• #15105 Attas aktív tag Attas #15104

  Új Válasz 2012-10-03 09:17:16 #15105

  Ú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

  

  Attas

  aktív tag

  válasz Attas #15104 üzenetére

  Hát igen... Meglett a baj. Mivel a típus cella alatt a 06H103023L számtalanszor szerepel, beíráskor rögtön felajánlotta az autómatikus kiegészítést, csak épp ott van egy szóköz is a végén. amit nem vettem észre, de a makró igen. Oh...

• #15091 lappy őstag Attas #15088

  Új Válasz 2012-10-02 13:08:33 #15091

  Ú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

  

  lappy

  őstag

  válasz Attas #15088 üzenetére

  Szia!
  Elsőnek írd be a megjegyzést, majd utána zárold a munkalapot!

• #15082 Fire/SOUL/CD félisten Attas #15081

  Új Válasz 2012-10-01 18:45:43 #15082

  Ú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 Attas #15081 üzenetére

  Itt topikban is számos makrót találhatsz, amiben szerepel a goto: [link]

• #15045 Attas aktív tag Attas #15043

  Új Válasz 2012-09-30 10:18:10 #15045

  Ú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

  

  Attas

  aktív tag

  válasz Attas #15043 üzenetére

  Meglett a függvény. A neve MODUS a statisztikai függvényeknél.

• #15041 Fire/SOUL/CD félisten Attas #15040

  Új Válasz 2012-09-29 10:28:36 #15041

  Ú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 Attas #15040 üzenetére

  [link]

• #15038 bugizozi őstag Attas #15036

  Új Válasz 2012-09-28 16:22:41 #15038

  Ú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

  

  bugizozi

  őstag

  válasz Attas #15036 üzenetére

  Most nincs időm a Te példáddal megcsinálni, helyette itt van annak a szintaxisa, amit szeretnél

• #15035 bugizozi őstag Attas #15034

  Új Válasz 2012-09-28 15:07:02 #15035

  Ú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

  

  bugizozi

  őstag

  válasz Attas #15034 üzenetére

  Elsőre a megoldás:

  If Range("B1").Value = "GEN2" Then
  
  x
  
  ElseIf Range("B1").Value = "GEN3" Then
  
  y
  
  End If

• #15033 bugizozi őstag Attas #15032

  Új Válasz 2012-09-28 14:31:23 #15033

  Ú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

  

  bugizozi

  őstag

  válasz Attas #15032 üzenetére

  Nincs mit!

• #15031 bugizozi őstag Attas #15030

  Új Válasz 2012-09-28 13:05:32 #15031

  Ú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

  

  bugizozi

  őstag

  válasz Attas #15030 üzenetére

  Simán beírod a nevüket egy sorba...Pl:

  Első kód:

  Sub vmi()
  
  Range("A1").Select
  Selection.Copy
  Range("B1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False
  
  End Sub

  Második kód:

  Sub vmi2()
  
  vmi
  
  End Sub

  Ha lefuttatod a második kódot (vmi2), az "megíhvja" az első kódot (vmi) és az fog lefutni

• #15028 bugizozi őstag Attas #15027

  Új Válasz 2012-09-28 11:21:51 #15028

  Ú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

  

  bugizozi

  őstag

  válasz Attas #15027 üzenetére

  A következő kód az A1 cellából a B1 cellába másolja az értéket:

  Range("A1").Select
  Selection.Copy
  Range("B1").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Application.CutCopyMode = False

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