< návrat zpět

MS Excel


Téma: IF ve VBA rss

Zaslal/a 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ěď >

#048050
Merlin99
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
#048051
Merlin99
*udělal bych takto:citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46