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

• #8694 Cuci3 tag atesss #8692

  Új Válasz 2010-11-22 21:44:37 #8694

  Ú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

  

  Cuci3

  tag

  válasz atesss #8692 üzenetére

  Összesen 6 találat, miért is írunk erre kódot? Amúgy lentebb a lehetőség, a feltételeket remélem jól adtam meg.

  Sub hiperlink_kiszedes()
  
  Application.ScreenUpdating = False
  i = 2
  
  For Each h In Worksheets(1).Hyperlinks
  If Cells(i, 4) = 300 And Cells(i, 7) > 0.8 And Cells(i, 8) = "Gold" Then
  Cells(i, 9) = h.Name
  Cells(i, 10) = "[L:" & h.Name & "][link][/L]"
  End If
  
  i = i + 1
  Next
  
  Application.ScreenUpdating = True
  
  End Sub

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