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

• #32813 Delila_1 veterán Declare #32811

  Új Válasz 2016-09-29 16:56:52 #32813

  Ú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 Declare #32811 üzenetére

  Sub HarmasFeladat()
Dim sor As Long, usor As Long
Application.ScreenUpdating = False
usor = Range("F" & Rows.Count).End(xlUp).Row

For sor = 2 To usor
Select Case Cells(sor, "F")
Case "Value1"
Cells(sor, "H") = "=F" & sor
Case "Value2"
Cells(sor, "I") = "=F" & sor
Case "Value3"
Cells(sor, "J") = "=F" & sor
End Select
Next
Application.ScreenUpdating = True
End Sub

• #32812 Delila_1 veterán Declare #32811

  Új Válasz 2016-09-29 16:46:03 #32812

  Ú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 Declare #32811 üzenetére

  Tényleg működik az egyenlőség jeles, de anélkül is.

  A bemásolt makród is hiba nélkül lefut nálam üres sorok esetén is, csak ugrál. Először az alsó Value2 sorba ír, majd az első Value1-be, utolsó Value3-ba, első Value2-be, stb.

  Az én makrómban a
  Do While Cells(sor, "G") > ""
  sorban a G-t írd át F-re.

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