< návrat zpět
MS Excel
Téma: IF ve VBA
Zaslal/a vikizaj 17.9.2020 17:47
Dobrý den,
prosím, co dělám špatně?
Pokud některá buňka v F1:F10 má hodnotu 10, pak se mi musí zkopírovat "HURÁ" do buňky v G na stejném řádku.
Sub HURA()
Dim r1 As Range
Dim r2 As Range
Set r1 = Range("F1:F10")
Set r2 = Range("G1:G10")
For Each cell In r2
If cell.Value.Range("F1:F10") = 10 Then
cell.Value = "hurá"
End If
Next cell
End Sub
Merlin99(17.9.2020 18:03)#048050 Sub HURA()
Dim r1 As Range
Set r1 = Range("F1:F10")
For Each cell In r1
If cell.Value = 10 Then
cell.Offset(0, 1) = "hurá"
End If
Next cell
End Sub
citovat
Merlin99(17.9.2020 18:04)#048051 *udělal bych takto:
citovat