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

• #20463 Delila_1 veterán Salex1 #20462

  Új Válasz 2014-02-12 15:21:55 #20463

  Ú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 Salex1 #20462 üzenetére

  Jó lett volna, ha látszanak a sor- és oszlopazonosítók. Úgy tippelem, hogy a jan.1. a B2 cellában van, a febr.1. pedif az F2-ben.

  A laphoz kell rendelned a makrót.

  Private Sub Worksheet_Activate()
  Dim nap As Integer, honap As Integer
  nap = Day(Date) + 1
  Select Case Month(Date)
  Case 1
  honap = 2 'B oszlop
  Case 2
  honap = 6 'F oszlop
  End Select
  
  Cells(nap, honap).Select
  End Sub

  Folytatsd a Case utasítást 12-ig. A hónap mindig annak az oszlopnak a száma legyen, ahova az ahavi adatok kerülnek.

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