• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse