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

• #15532 Delila_1 veterán kokopeti #15527

  Új Válasz 2012-11-14 15:16:57 #15532

  Ú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 kokopeti #15527 üzenetére

  A két For kezdetű sorban a 2-t írd át 13-ra, ill. ha itt a címsor van, akkor 14-re.

  Szerk.: a fenti arra az esetre vonatkozik, ha a 2 első lapodon vándoroltak lejjebb az adatok.
  Ha a 3. lapon, akkor a sorN%=2 helyett írj sorN%=13-at.

• #15510 Delila_1 veterán kokopeti #15509

  Új Válasz 2012-11-13 11:35:55 #15510

  Ú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 kokopeti #15509 üzenetére

  A 'Napi összesítő' lap A2 cellája a mód, B2 a bruttó, C2 a nettó, D2 a megjegyzés.

  A laphoz rendeld ezt a makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim datum As Date
  If Target.Address = "$A$1" Then
  Application.EnableEvents = False
  datum = Target.Value
  Osszevonas datum
  Application.EnableEvents = True
  End If
  End Sub

  Modulba tedd a másikat:

  Sub Osszevonas(datum)
  Dim sor%, usor%, usorN%, f As Boolean
  Application.ScreenUpdating = False
  Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
  Set WS1 = Worksheets("Kiadások")
  Set WS2 = Worksheets("Bevételek")
  Set WS3 = Worksheets("Napi összesítő")
  
  WS1.Select
  usor% = Cells(Rows.Count, "A").End(xlUp).Row
  usorN% = 2
  For sor% = 2 To usor%
  If Cells(sor%, 1) = datum Then
  usorN% = usorN% + 1
  f = True
  WS3.Cells(usorN%, 1) = Cells(sor%, 2)
  WS3.Cells(usorN%, 2) = Cells(sor%, 3) * -1
  WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
  WS3.Cells(usorN%, 4) = Cells(sor%, 5)
  End If
  Next
  
  WS2.Select
  usor% = Cells(Rows.Count, "A").End(xlUp).Row
  For sor% = 2 To usor%
  If Cells(sor%, 1) = datum Then
  f = True
  usorN% = usorN% + 1
  WS3.Cells(usorN%, 1) = Cells(sor%, 2)
  WS3.Cells(usorN%, 2) = Cells(sor%, 3)
  WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
  WS3.Cells(usorN%, 4) = Cells(sor%, 4)
  End If
  Next
  
  WS3.Select
  Application.ScreenUpdating = True
  
  If f = False Then MsgBox "Nincs mozgás a " & datum & " napon."
  End Sub

  Az összes bruttót az =szum(B:B), az összes nettót az =szum(D:D) képlet számolja ki a harmadik lapodon.

• #15506 Delila_1 veterán kokopeti #15505

  Új Válasz 2012-11-13 08:07:59 #15506

  Ú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 kokopeti #15505 üzenetére

  Melyik oszlopok szerepeljenek a 3. lapon?

• #15487 Delila_1 veterán kokopeti #15484

  Új Válasz 2012-11-12 16:04:01 #15487

  Ú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 kokopeti #15484 üzenetére

  Ehhez azt kell tudni, hogy hol vannak az adatok. Alapesetben mindkét lapon az A1 cellában kezdődnek, de ez nem biztos. Írd meg, és írok hozzá egy makrót.

• #13267 Fire/SOUL/CD félisten kokopeti #13266

  Új Válasz 2012-03-23 11:38:46 #13267

  Ú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 kokopeti #13266 üzenetére

  Group-on belül megy a TabIndex, azaz esetedben minden Frame-en belül kezdődik újra 0-tól. Magyarul a 7. textbox tabindex-e ismét 0, mert az egy másik Frame-ben van már.

• #13264 Delila_1 veterán kokopeti #13263

  Új Válasz 2012-03-23 09:17:47 #13264

  Ú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 kokopeti #13263 üzenetére

  Szívesen.

• #13262 Delila_1 veterán kokopeti #13261

  Új Válasz 2012-03-23 09:09:52 #13262

  Ú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 kokopeti #13261 üzenetére

  Elnézést, rosszul írtam. Helyesen

  UserForm1.Show False
  UserForm1.MultiPage1.Value = 0

• #13260 Delila_1 veterán kokopeti #13259

  Új Válasz 2012-03-23 08:34:11 #13260

  Ú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 kokopeti #13259 üzenetére

  UserForm1.Show False
  MultiPage1.Page("Főoldal").Select

• #13251 Delila_1 veterán kokopeti #13247

  Új Válasz 2012-03-22 18:12:15 #13251

  Ú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 kokopeti #13247 üzenetére

  Fire megadta a választ.

  Egyszerűsítheted az adatok felírását az Adatok lapra, valamint a TextBoxok tartalmának a lenullázását, ha a beszédes nevek – vevo_nev, vevo_cim – helyett kivételesen a nehezebben követhető TB1, TB2 ... TB11 nevet adsz.

  Private Sub Bevisz_Click()
  Dim WSA As Worksheet, hova As Long, oszlop%, nev As String
  
  Set WSA = Sheets("Adatok")
  hova = WSA.Range("A65536").End(xlUp).Row + 1
  For oszlop% = 1 To 11
  nev = "TB" & oszlop%
  WSA.Cells(hova, oszlop) = Controls(nev).Text
  Controls(nev).Text = ""
  Next
  End Sub

  Megjegyzésben beírhatod a makróba, melyik TextBox milyen értéket tartalmaz.

• #13249 Fire/SOUL/CD félisten kokopeti #13247

  Új Válasz 2012-03-22 17:52:59 #13249

  Ú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 kokopeti #13247 üzenetére

  Value vagy index-el, attól függően, hogy milyen objektumot használsz TabStrip avagy MultiPage. ("többoldalas Userform" nincs...)

• #13246 kokopeti csendes tag kokopeti #13245

  Új Válasz 2012-03-22 08:33:52 #13246

  Ú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

  

  kokopeti

  csendes tag

  válasz kokopeti #13245 üzenetére

  Elkezdtem megcsinálni a UserFormot, amit több oldalasra csinálok. Közben melóznom is kell, úgyhogy nem tudom milyen ütemben fogok haladni, de jelentkezek majd! Köszi előre is.

• #13244 Delila_1 veterán kokopeti #13233

  Új Válasz 2012-03-22 07:55:17 #13244

  Ú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 kokopeti #13233 üzenetére

  Tehetsz a Műszaki lapra egy gombot, ami indítja a UserFormot. A hozzá rendelt makró tartalmazza ugyanazt, amit a Workbook_Open. Ez arra jó, hogy ha bezártad a formot, a lapról is indíthatod.

• #13243 Delila_1 veterán kokopeti #13233

  Új Válasz 2012-03-22 07:44:51 #13243

  Ú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 kokopeti #13233 üzenetére

  Hozz létre egy UserForm-ot, aminek a neve legyen pl. Bevitel. Tedd fel rá a beviteli mezőket, és a gombot, ami indítja az adatok tárolását.

  A ThisWorkbook-hoz a

  Private Sub Workbook_Open()
  Sheets("Műszaki").Select
  Bevitel.Show False
  End Sub

  makró kerüljön, ami a füzet behívásakor indítja a UserForm-ot.

  A gombhoz ezt rendeld (gombon duplaklikk):

  Private Sub CommandButton1_Click()
  Dim WSA As Worksheet, hova As Long
  
  Set WSA = Sheets("Adatok")
  hova = WSA.Range("A65536").End(xlUp).Row + 1
  WSA.Cells(hova, 1) = vevo_nev.Text
  WSA.Cells(hova, 2) = vevo_cim.Text
  WSA.Cells(hova, 3) = vevo_tel.Text
  
  vevo_nev.Text = ""
  vevo_cim.Text = ""
  vevo_tel.Text = ""
  End Sub

• #13242 poffsoft veterán kokopeti #13240

  Új Válasz 2012-03-21 22:56:29 #13242

  Ú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

  

  poffsoft

  veterán

  válasz kokopeti #13240 üzenetére

  nincs mit, O.K.

• #13241 poffsoft veterán kokopeti #13239

  Új Válasz 2012-03-21 22:50:08 #13241

  Ú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

  

  poffsoft

  veterán

  válasz kokopeti #13239 üzenetére

  szerintem nem.

• #13238 poffsoft veterán kokopeti #13235

  Új Válasz 2012-03-21 22:31:45 #13238

  Ú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

  

  poffsoft

  veterán

  válasz kokopeti #13235 üzenetére

  Az a textbox az tuti texbox, nem mondjuk editbox?

  Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").EditBoxes("datum_d").Text

  vagy

  Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").TextBoxes("datum_d").Text

  (#13236): az jó.
  És melyik soron hasal el? (debug)
  - amúgy, ha gyanús, hogy ez a rossz, debug idejére miért nem kommenteled ki?
  ja, most nézem, nem range-t neveztél el, hanem objektet.
  Akkor marad az előző verziók közül az egyik, és értelem szerint a datum_d helyére mehet a vevo_nev .... stb...

  Mondtam, sajna nem értek hozzá, de most rákerestem, editboxes lesz az

• #13237 poffsoft veterán kokopeti #13235

  Új Válasz 2012-03-21 22:28:56 #13237

  Ú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

  

  poffsoft

  veterán

  válasz kokopeti #13235 üzenetére

  mondjuk nem is nagyon értem, mit akarsz ott kiolvasni.
  Nem tudom mi az a datum_d,
  valamint, ha már hivatkoztál a .text-re, akkor minek oda még a .value?

  Milyen hibával áll meg?

• #13234 poffsoft veterán kokopeti #13233

  Új Válasz 2012-03-21 22:02:15 #13234

  Ú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

  

  poffsoft

  veterán

  válasz kokopeti #13233 üzenetére

  Mondjuk én nem értek hozzá.
  De :
  változókat nem szoktuk definiálni a sub elején?
  továbbá szerintem a

  datum = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value
  .
  .
  .
  Sheets("Adatok").Cells(hova, 1) = datum

  helyett a

  Sheets("Adatok").Cells(hova, 1).Value = DialogSheets("Műszaki").TextBoxes.datum_d.Text.Value

  is megfelelne...
  ja, meg ha a mezőket már elnevezted, miért nem névvel hivatkozol rájuk?
  Sheets("Adatok").Cells(hova, 2).Value = Range("vevo_nev").Value

  Törléshez is elég lenne csak a range value paraméterébe ""-t írni:
  Range("vevo_nev").Value =""

  Amúgy mi nem működik rajta? mi a hiba?

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