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

• #22789 slashing senior tag botond187 #22788

  Új Válasz 2014-08-05 23:15:24 #22789

  Ú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

  

  slashing

  senior tag

  válasz botond187 #22788 üzenetére

  hát innentől már csak annyit kell csinálni hogy d1=kezdőérték e1=végérték d2=kigyűjtés kezdő értéke e2=kigyűjtés végértéke a makróban meg ezeket a cellákat el kell nevezni és azokkal helyettesíteni.

  valahogy így:

  Dim k1, v1, ki1, ki2 As String

  k1 = Range("D1")
  v1 = Range("E1")
  ki1 = Range("D2")
  ki2 = Range("E2")

  if cells(yy,1).value>= K1 and cells(yy,1).value<= V1 then

  ugyan így a másik kettőnél is.

  és mondjuk a legvégén a next előtti cells(yy, 2)-t átírni mondjuk ActiveCell-re és akkor oda rakja az adatokat amelyik cellára ráállsz a makrófuttatás előtt. Esetleg még egy gombot kirakni a lapra ami indítja a makrót.

  Elvileg ennek így működnie kell....

  Bocs Fferi50 hogy belekondárkodtam, remélem nem haragszol meg érte.

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