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

• #30130 Delila_1 veterán Szicskeee #30129

  Új Válasz 2016-01-14 18:20:32 #30130

  Ú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 Szicskeee #30129 üzenetére

  Nézd meg, hogy az inputboxban bekért adat, és a hónapot tartalmazó oszlopod adatai azonos típusúak-e (szám, szöveg)?

• #30128 Delila_1 veterán Szicskeee #30127

  Új Válasz 2016-01-14 14:14:40 #30128

  Ú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 Szicskeee #30127 üzenetére

  Az msg címke fölé kell egy Exit Sub, másképp hivatalból rálép arra a sorra.

• #30124 Grodd tag Szicskeee #30121

  Új Válasz 2016-01-14 10:03:19 #30124

  Ú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

  

  Grodd

  tag

  válasz Szicskeee #30121 üzenetére

  Miért nem adod át egyszerűen az inputboxszal bekért értékét, minek ide select..case?

• #30118 Delila_1 veterán Szicskeee #30116

  Új Válasz 2016-01-13 13:12:41 #30118

  Ú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 Szicskeee #30116 üzenetére

  Szívesen.

• #30115 Delila_1 veterán Szicskeee #30114

  Új Válasz 2016-01-13 08:42:53 #30115

  Ú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 Szicskeee #30114 üzenetére

  Bocsi, lehagytam az utolsó lépést.

  VBE, Tools, References. Jelöld be a Microsoft Date and Time Picker Controls négyzetét.

• #30113 Delila_1 veterán Szicskeee #30112

  Új Válasz 2016-01-13 07:59:23 #30113

  Ú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 Szicskeee #30112 üzenetére

  Valószínű, hogy az MSCOMT2. ocx nincs meg a gépeden, a C:\Windows\System(32 vagy 64) könyvtárban.
  Le tudod tölteni, majd a mappába másolás után a következő lépéseket kell végrehajtanod.

  Alt+F11.gyel belépsz a VB szerkesztőbe.
  Tools menü, References. A fájltípusnál beállítod az ocx kiterjesztést. A Browse gombra kattintva kitallózod a most bemásolt fájlt, OK.

  Lehet, hogy újra kell indítanod az Excelt.

• #30104 Delila_1 veterán Szicskeee #30103

  Új Válasz 2016-01-12 14:48:58 #30104

  Ú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 Szicskeee #30103 üzenetére

  A füzet megnyitásával indul a beviteli userform, de az első lapon lévő gombbal is újra indíthatod.

  A dátum mező az aktuális dátumot mutatja, amit módosíthatsz.
  Kilépés: a városnál az üreset jelöld ki, a Felvitel gomb bezárja a formot.

  Nem tettem bele semmi ellenőrzést (pl. nem tudom, mi jön az AB mezőbe, lehet, hogy csak számokat kellene elfogadnia. Azt sem ellenőriztettem, hogy minden mező ki van-e töltve).

• #29895 Delila_1 veterán Szicskeee #29893

  Új Válasz 2015-12-15 08:45:27 #29895

  Ú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 Szicskeee #29893 üzenetére

  Az Excel módot ad a cellák összevonására, de többnyire nem tudja úgy kezelni, ahogy a felhasználó szeretné, hibák jönnek létre. Ha csak lehet, kerüljük el az összevonásokat.

  Javaslom, hogy szüntesd meg az összevonásokat az A-B-C és F oszlopokban, majd írd be a szükséges értékeket az üres cellákba.

  Ez egyszerűen megoldható. Kijelölöd a 4 oszlopot addig a sorig, ameddig a D oszlopban vannak adataid.
  Ctrl+g-re bejön az ugrás menü, ahol az Irányítottat, majd az Üres cellákat választod. Marad a kijelölés, az aktuális cellába beírsz egy egyenlőség jelet, majd FEL nyilat nyomsz, Ctrl+Enter. Ezzel az összes, eddig üres cellában megjelenik a fölötte lévő érték, hivatkozással.

  A hivatkozások helyére érdemes beilleszteni az értéküket. A 4 teljes oszlopodat kijelölve, másolva, irányítottan rájuk illeszted az értékeket.

  Ha zavar, hogy minden sorban látod a bevitt értékeket, feltételes formázással láthatatlanná teheted.
  =A3=A2 -> a karakter színét a háttérével megegyezőre állítod.

  Az egész művelet fél perc alatt megvan, sokkal több idő leírni.

  Vízszintesen is elkerülhető az összevonás, amit címsorokban szokás alkalmazni. Például az A1:D1 cellák közepén szeretnénk elhelyezni egy címet. Beírjuk az A1-be a szöveget, kijelöljük az A1:D1 tartományt. Cellaformázás, Igazítás fül, a Vízszintesen legördülőben A kijelölés közepére paramétert állítjuk be.

• #29783 bsh addikt Szicskeee #29778

  Új Válasz 2015-12-09 12:40:09 #29783

  Ú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 Szicskeee #29778 üzenetére

  pl. call Munka2.CommandButton_Click()

• #29780 Delila_1 veterán Szicskeee #29778

  Új Válasz 2015-12-09 11:56:17 #29780

  Ú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 Szicskeee #29778 üzenetére

  A másik lapon (Munka2) lévő gomb click eseményébe írd be azt, amit az elsőn lévő gomb eseményébe írnál.

  Private Sub CommandButton2_Click()
  Sheets("Munka1").Range("A1") = "asdf"
  End Sub

  Az első lap gombjának az eseménye is tartalmazhatja ugyanezt, csak ott a lapra történő hivatkozást felesleges megadni.

• #29776 Delila_1 veterán Szicskeee #29773

  Új Válasz 2015-12-09 11:27:14 #29776

  Ú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 Szicskeee #29773 üzenetére

  Private Sub CommandButton14_Click()
  Dim iRet As Integer
  Dim strPrompt As String
  Dim strTitle As String
  strPrompt = "Ki szeretnéd nyomtatni xyz prémium adatlapját??"
  
  strTitle = "Prémium"
  
  iRet = MsgBox(strPrompt, vbYesNo, strTitle)
  
  If iRet = vbNo Then
  MsgBox "Vége!"
  Else
  Worksheets("Prem1").Range("$A$1:$O$39").PrintOut Copies:=1, Collate:=True
  End If
  End Sub

  Szerk: elkéstem.

• #29774 bsh addikt Szicskeee #29773

  Új Válasz 2015-12-09 11:23:09 #29774

  Ú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 Szicskeee #29773 üzenetére

  gondolom azért, mert a range nem egyértelmű, az lehet bármely lapon vagy akár másik munkafüzetben is.
  meg kell neki mondani, hogy worksheets("Prem1").Range("A1:O39").Select, vagy ha már úgyis aktívvá tetted azt a lapot, akkor Activesheet.Range("A1:O39").Select

• #29687 bara17 tag Szicskeee #29685

  Új Válasz 2015-12-01 10:57:41 #29687

  Ú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

  

  bara17

  tag

  válasz Szicskeee #29685 üzenetére

  Szia!

  Én egy tömbképletes megoldást tudok elsőre.

  E2-be írd be ezt a képletet, majd ctrl+shift+ENTER és húzd végig.

  =HAHIBA(INDEX(Munka2!$E:$E;HOL.VAN(OSZLOP(A$1)&$A2;Munka2!$A:$A&Munka2!$B:$B;0));"")

• #29657 bsh addikt Szicskeee #29656

  Új Válasz 2015-11-27 10:26:44 #29657

  Ú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 Szicskeee #29656 üzenetére

  Sub CommandButton_Szamolj_Click()
  Select Case Cells(1, 2).Value
  Case 1
  Call CommandButton1_Click
  Case 2
  Call CommandButton2_Click
  Case 3
  Call CommandButton3_Click
  Case 4
  Call CommandButton4_Click
  'satöbbi...
  End Select
  End Sub
  
  Sub CommandButton1_Click()
  '...
  End Sub
  
  Sub CommandButton2_Click()
  '...
  End Sub
  
  Sub CommandButton3_Click()
  '...
  End Sub
  
  Sub CommandButton4_Click()
  '...
  End Sub
  'satöbbi...

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