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

• #2462 Delila_1 Topikgazda Stavi #2457

  Új Válasz 2007-09-13 10:46:33 #2462

  Ú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

  Topikgazda

  válasz Stavi #2457 üzenetére

  Másold be ezt a makrót. Feltételezi, hogy az eredeti adataid az ''Adatok'' lapon vannak. Az ID-k A2-től le akármeddig, a hozzájuk tartozó adatok B2-től le. Az első sorban feltehetően címeket adtál az oszlopoknak.
  
  A keresendő ID-t E1-be kell írni. Ha máshova kéred, az ID = Cells(1,5).Value sort írd át.
  A ''Kigyűjtés'' lapra gyűjti a megfelelő adatokat.
  
  Sub ID_kereső()
  'Az előző keresésnél kigyűjtött adatok törlése az 1000. sorig
  Sheets(''Kigyűjtés'').Select
  Range(Cells(2, 1), Cells(1000, 2)).Select
  Selection.ClearContents
  
  Sheets(''Adatok'').Select
  'Ez kikeresi az alsó sorodat
  Range(''A2'').Select
  Selection.End(xlDown).Select
  alsó = Selection.Row
  
  ID = Cells(1, 5).Value
  sor_k = 2 'Kigyűjtés lap sor-számlálója
  For sor = 2 To alsó
  If Cells(sor, 1).Value = ID Then
  adat = Cells(sor, 2).Value
  Sheets(''Kigyűjtés'').Select
  Cells(sor_k, 1).Value = ID
  Cells(sor_k, 2).Value = adat
  sor_k = sor_k + 1
  Sheets(''Adatok'').Select
  End If
  Next
  Sheets(''Kigyűjtés'').Select
  Cells(sor_k - 1, 1).Select
  End Sub
  
  Ha gond van, elküldöm e-mail-ben a file-t.
  
  [Szerkesztve]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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