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

• csferke senior tag

  #34864 2017-04-09 18:31:34

  Új Válasz

  Ú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

  

  csferke

  senior tag

  Sziasztok!
  Adott táblázatban folyamatosan bővülnek majd az adatok kb.250 sor-ig.
  Ebből kellene a B oszlopból kijelölni egy mezőt/dátumot és e sortól lefelé +16 sorig összeadni a C oszlopban szereplő óó:pp adatokat. Mint a képletből is látszik ezt kell osztanom 17-el.

  Az alábbi kódban nem tudom:
  - megállítani a futást amíg kijelölök egy cellát a B oszlopban
  - meghatározni a kCell(row, col), vCell(row, col) értékeket amit használnák a SUM-ban
  - a SUM sor így megfelel?

  Sub Atlag4x()
' B - oszlop - dátum
' C, D - oszlop - óó:pp
' kDatum - kezdo dátum, B oszlop
' vDatum - végzo dátum, B oszlop
' kCell - kezdo Cella, kDatum sora C oszlop
' vCell - végzo Cella, vDatum sora D oszlop

Dim kDatum, vDatum, kCell, vCell, adat
' B oszlop
?? B oszlopban cella / dátum kiválasztása

kDatum = ActiveCell.Value
ActiveCell.Offset(RowOffset:=0, ColumnOffset:=1).Activate
' C oszlop
kCell = Cells(getRow, getCol).Address

ActiveCell.Offset(RowOffset:=16, ColumnOffset:=-1).Activate
' B oszlop + 16 sor
vDatum = ActiveCell.Value

If vDatum.Isblank Then
MsgBox "HIBA"
Else
ActiveCell.Offset(RowOffset:=0, ColumnOffset:=2).Activate
' D oszlop a +16. sorban
eCell = Cells(getRow, getCol).Address
adat = ((Sum(kCell; eCell)) / 17)
Range("F1").Select
ActiveCell = kDatum
Range("F2").Select
ActiveCell = adat
End If

End Sub

  Egyáltalán helyes-e a megközelítés amit összehoztam?

  köszi

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