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

• #4015 Delila_1 veterán Hosssszu #4014

  Új Válasz 2008-11-04 16:04:31 #4015

  Ú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 Hosssszu #4014 üzenetére

  Szívesen.

• #4001 Delila_1 veterán Hosssszu #3997

  Új Válasz 2008-10-31 14:15:36 #4001

  Ú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 Hosssszu #3997 üzenetére

  Vigyázz! a makró írásánál feltételeztem, hogy a D oszlopod üres. Ideiglenesen oda helyezek adatokat.
  Ha nem szabad az oszlop, két helyen kell átírni a makrót. A
  Selection.Cut Destination:=Cells(sor_a, 4) sorban a 4-et mondjuk 30-ra,
  és ennek megfelelően a
  Range("D2: D" & usor).Select sort Range("AD2:AD" & usor).Select-re.

  Mód.: ez a fránya átírta. A fenti sor elején a kettőspont után a D elé be kellett tennem egy szóközt, hogy ne egy vigyori fej (ilyen) jelenjen meg.

• #4000 Delila_1 veterán Hosssszu #3997

  Új Válasz 2008-10-31 13:51:50 #4000

  Ú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 Hosssszu #3997 üzenetére

  Nem is annyira egyszerű a dolog, de azért itt a makrós megoldás:

  Sub rendez()
  usor = Range("A65536").End(xlUp).Row
  For sor_a = 2 To usor
  adat = Cells(sor_a, 1)
  For sor_b = 2 To Range("B65536").End(xlUp).Row
  If Cells(sor_b, 2) = adat Then
  Cells(sor_b, 2).Select
  Selection.Cut Destination:=Cells(sor_a, 4)
  End If
  Next
  Next
  
  also = usor
  For sor_b = 2 To usor
  adat = Cells(sor_b, 2)
  If adat > "" Then
  also = also + 1
  Cells(sor_b, 2).Select
  Selection.Cut Destination:=Cells(also, 2)
  End If
  Next
  Range("D2:D" & usor).Select
  Selection.Cut Destination:=Range("B2:B" & usor)
  Range("B2:B21").Select
  End Sub

• #3998 Szkeptikus tag Hosssszu #3997

  Új Válasz 2008-10-29 17:52:20 #3998

  Ú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

  

  Szkeptikus

  tag

  válasz Hosssszu #3997 üzenetére

  Excelben passz, de ha betöltöd a táblát Accessba akkor ott egy szimpla lekérdezés...

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