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

• #14462 Delila_1 veterán csferke #14459

  Új Válasz 2012-07-26 08:25:12 #14462

  Ú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 csferke #14459 üzenetére

  Hibáztam! Az

  If Cells(sor%, "C") = 0 Then Cells(sor%, "B").Delete

  sort cseréld ki

  If Cells(sor%, "C") = 0 Then Rows(sor%).EntireRow.Hidden = True-ra.

  Ez elrejti azokat a sorokat, ahol a C oszlop – a tartozás – nulla. Bármikor felfedheted.

• #14460 Delila_1 veterán csferke #14459

  Új Válasz 2012-07-26 08:06:20 #14460

  Ú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 csferke #14459 üzenetére

  Az 1. lapra betennék egy új oszlopot, ami a számlázott-, és a befizetett összeg különbségét adja. Az adatokat az adatlapon is rendezheted, de a kimutatásban is.

  A kimutatás sorába kerül a cég neve és a számlaszám, az adatokhoz ez a különbség. Itt még megjelennek a nulla tartozást mutató sorok. Ezeknek az eltüntetéséhez írtam egy kis makrót, amit egy gombhoz rendelhetsz.

  Sub Elrejt()
  Dim sor%, usor%
  
  usor% = Cells(Rows.Count, "A").End(xlUp).Row
  sor% = usor%
  
  For sor% = usor% To 5 Step -1
  If Cells(sor%, "C") = 0 Then Cells(sor%, "B").Delete
  Next
  End Sub

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