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

• #29312 Delila_1 veterán m.zmrzlina #29311

  Új Válasz 2015-11-04 08:14:35 #29312

  Ú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 m.zmrzlina #29311 üzenetére

  Ilyesmire gondolsz?

  sor = 46
  Do While Cells(sor, "C") <> ""
  If Cells(sor, "D") = "i" Then
  Cells(sor, "F") = "aq"
  Else
  Cells(sor, "F") = "ap"
  End If
  sor = sor + 1
  Loop

  Vagy

  sor = 46
  Do While Cells(sor, "C") <> ""
  Select Case Cells(sor, "D")
  Case "e"
  Cells(sor, "F") = ""
  Case "i"
  Cells(sor, "f") = "ap"
  Case Else
  Cells(sor, "F") = "aq"
  End Select
  sor = sor + 1
  Loop

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