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

• #10098 Delila_1 veterán Vizes Tomi #10097

  Új Válasz 2011-04-18 16:39:57 #10098

  Ú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 Vizes Tomi #10097 üzenetére

  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