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

• #15527 kokopeti csendes tag Delila_1 #15510

  Új Válasz 2012-11-14 09:19:10 #15527

  Ú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 Delila_1 #15510 üzenetére

  Szia!

  Üres lapba bemásolva minden jól működik köszönöm. Viszont annyi változás történt, hogy a táblázatom elhelyezkedését muszáj lejjebb helyeznem.

  Így az elhelyezkedésük ez lesz:
  Mód: B13
  Nettó: C13
  Bruttó: D13
  Megjegyzés: E13

  A módosuláshoz gondolom ebben kellene szerkeszteni pár értéket:

  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)

  Próbálom egyedül is hátha sikerül, de egyelőre nehezen értelmezem a deklarálásokat sajnos.

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