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

• Delila_1 veterán

  #10098

  #10097 Vizes Tomi

  2011-04-18 16:39:57

  Ú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

  

  Delila_1

  veterán

  #10097 Vizes Tomi

  Feltételezve (mivel nem írtad meg), hogy a "Hálózaton belüli hívások" szöveg az A oszlopban szerepel, és a hozzá tartozó egységár az E oszlopban van a kép szerint, itt a makró, ami beírja a J1 cellában általad megadott percdíjat a sárga hátterű cellákba:

  Sub PercDij()
  Dim Szoveg$, cseresor%, PercDij!
  Szoveg$ = "Hálózaton belüli hívások"
  PercDij = Cells(1, 10) 'ide fixen is beírhatod az összeget
  
  cseresor% = Range("A:A").Find(Szoveg$).Row + 1
  
  Do While Cells(cseresor%, 1) = ""
  Cells(cseresor%, 5) = PercDij!
  cseresor% = cseresor% + 1
  Loop
  End Sub

  

  Ha az adatok a "Hálózaton belüli hívások" címmel azonos sorban kezdődnek, akkor a
  cseresor% = Range("A:A").Find(Szoveg$).Row + 1 sor végéről töröld a +1 -et.

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