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

Zaslat odpověď >

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 Subcitovat

Merlin99(17.9.2020 18:04)#048051

*udělal bych takto:citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.