MS Excel

Ahoj.

Ve sloupci "N" buňky a některé z nich obsahují část textu "EBE".
Potřeboval bych pokud takovou buňku najdu aby do sloupce "S" dopsat slovo "Reklamace".

Asi něco takového (toto mi bohužel nejede jak by mělo)Sub test()
Dim Found As Range, tempcell As Range
Set Found = Columns("N").Find(What:="EBE", lookat:=xlPart)
If Not Found Is Nothing Then
'Found.Offset(0, 5).Range("A1").FormulaR1C1 = "REKLAMACE"
Do
Set tempcell = Columns("N").FindNext
If tempcell Is Nothing Then Exit Do
Set Found = tempcell
Found.Offset(0, 5).Range("A1").FormulaR1C1 = "REKLAMACE"
Loop
End If
End Sub

Pomůže někdo?
Děkuji
Radek

Zaslat odpověď >

Raders486(13.6.2018 14:22)#040690

Tak jsem na to asi došel.

Sub ASI()
Dim lastrowA As Long
lastrowA = Cells(Rows.Count, 1).End(xlUp).Row
Dim Found As Range
Set rng = Range("N1:N" & lastrowA)
Set Found = Columns("N").Find(What:="EBE", lookat:=xlPart)
i = 1
For counter = 1 To rng.Rows.Count
If rng.Cells(i) = Found Then
rng.Cells(i).Offset(0, 5).Range("A1").FormulaR1C1 = "REKLAMACE"
Else
End If
i = i + 1
Next
End Subcitovat

elninoslov(13.6.2018 14:33)#040691

Sub NajdiReklamace()
Dim rngPrvni As Range, rngPosledni As Range, rngReklamace As Range
With Range("N:N")
Do
If rngPrvni Is Nothing Then
Set rngPrvni = .Find(What:="EBE", After:=.Cells(1), LookAt:=xlPart)
Set rngPosledni = rngPrvni
Else
Set rngPosledni = .Find(What:="EBE", After:=rngPosledni, LookAt:=xlPart)
If rngPosledni.Address = rngPrvni.Address Then Exit Do
End If
If rngPosledni Is Nothing Then Exit Do
If rngReklamace Is Nothing Then Set rngReklamace = rngPosledni.Offset(0, 5) Else Set rngReklamace = Union(rngReklamace, rngPosledni.Offset(0, 5))
Loop
End With
If Not rngReklamace Is Nothing Then rngReklamace = "REKLAMACE"
End Subcitovat

Raders486(13.6.2018 14:54)#040693

Elninoslov - pracuje to skvěle.

Děkuji moc.

Radekcitovat

Téma: Část hledaného textu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje