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

• #16525 peterszky őstag Delila_1 #16524

  Új Válasz 2013-01-29 15:39:12 #16525

  Ú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

  

  peterszky

  őstag

  válasz Delila_1 #16524 üzenetére

  Értem, köszönöm

• #16523 peterszky őstag Delila_1 #16522

  Új Válasz 2013-01-29 15:26:19 #16523

  Ú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

  

  peterszky

  őstag

  válasz Delila_1 #16522 üzenetére

  Csak az oszlopot szeretném paraméterként megadni az eljárásnak, hogy ne kelljen mindig átírni a kódban négy helyen a "Q"-t, ha másik oszlopra szeretném futtatni a makrót.

  Tehát pl.:
  Sub mm(p_oszlop As String)
  ...
  If UCase(Left(Cells(sor%, p_oszlop), 3)) = "E (" Then
  ...

• #16521 peterszky őstag peterszky #16503

  Új Válasz 2013-01-29 15:08:00 #16521

  Ú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

  

  peterszky

  őstag

  válasz peterszky #16503 üzenetére

  Egy kérdés:

  UCase(Left(Cells(sor%, "Q"), 3))

  Ezt a "beégetett" részletet szeretném egy paraméterként megadni, próbáltam stringként, számként (oszlopszám), de mindig type mismatch hibát kapok futtatáskor. Erre mi az elfogadott módszer?

• #16503 peterszky őstag Delila_1 #16496

  Új Válasz 2013-01-28 14:37:52 #16503

  Ú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

  

  peterszky

  őstag

  válasz Delila_1 #16496 üzenetére

  Kiegészítettem a kódot azzal, ami még hiányzott belőle, így remekül segíti a dolgomat ez a kis makró

  Sub search(p_sorszam As Integer, p_sheet As Worksheet, ByVal p_field As String)
  Dim row%, WS As Worksheet
  Set WS = Sheets("IG2KH")
  row% = 3
  p_sheet.Cells(p_sorszam, "B") = "T" & p_field
  Do While WS.Cells(row%, "A") <> ""
  If Cells(row%, "A") = p_field Then
  p_sheet.Cells(p_sorszam, "C") = "P: " & WS.Cells(row%, "D") & ", H: " & WS.Cells(row%, "E")
  Exit Do
  End If
  row% = row% + 1
  Loop
  End Sub
  
  Sub mm()
  Dim sor%, usor%, WS As Worksheet
  Set WS = Sheets("Sheet1")
  sor% = 3
  usor% = WS.Cells(Rows.Count, "A").End(xlUp).row + 1
  Sheets("IG2KH").Select
  Do While Cells(sor%, "A") <> ""
  If UCase(Left(Cells(sor%, "Q"), 3)) = "E (" Then
  Call search(usor%, WS, Mid(Cells(sor%, "Q"), 5, Len(Cells(sor%, "Q")) - 5))
  WS.Cells(usor%, "A") = "P: " & Cells(sor%, "D") & ", H: " & Cells(sor%, "E")
  usor% = usor% + 1
  End If
  sor% = sor% + 1
  Loop
  End Sub

  Pastebin [link]

• #16497 peterszky őstag Delila_1 #16496

  Új Válasz 2013-01-28 11:23:14 #16497

  Ú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

  

  peterszky

  őstag

  válasz Delila_1 #16496 üzenetére

  Nagyon szépen köszönöm, igazából elfelejtettem írni, hogy elég volna "címszavakban", hogy nekem is kelljen bíbelődni, de azért így se rossz Szóval köszönöm még egyszer!

• #16495 peterszky őstag

  Új Válasz 2013-01-28 10:19:42 #16495

  Ú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

  

  peterszky

  őstag

  Sziasztok!

  Lenne egy Excel + VB kérdésem. Adott egy táblázat: [link]

  Amit szeretnék:
  - az F oszlop értékein végigmenni
  - ha e/E-s értéket találunk, akkor a zárójel közötti T-s érték (id oszlopra utal) érdekes
  - ez alapján a T-s érték alapján sort megkeresni és abból a hossz / pozíciót elmenteni (pl: "H: [érték], P: [érték]" formában, ez mehetne akár egy másik worksheetre vagy egy szöveges fájlba is, mindegy

  Tehát egy példa:
  - elindul a keresés
  - F5-nél találat -> e(T3)
  - sor keresése az id oszlop szerint T3-ra
  - mentés "P: 14, H: 35"
  - tovébb

  Nem tudom, hogy ez így ebben a formában megvalósítható-e?

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