< návrat zpět

MS Excel


Téma: Část hledaného textu rss

Zaslal/a 13.6.2018 13:31

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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#040690
avatar
Tak jsem na to asi došel. 1 1
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 Sub
citovat
#040691
elninoslov
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 Sub
citovat
#040693
avatar
Elninoslov - pracuje to skvěle.

Děkuji moc.

Radekcitovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Excel Formulář

pisbo • 18.10. 12:52

Odeslání dat do souboru v síti a zápis do něj

xlnc • 18.10. 12:09

Excel Formulář

xlnc • 18.10. 11:56

Odeslání dat do souboru v síti a zápis do něj

Pavel-Krivanek • 18.10. 11:17

Excel Formulář

pisbo • 18.10. 8:30

Odeslání listu na e-mail

xlnc • 17.10. 22:19

Excel Formulář

xlnc • 17.10. 22:14