Dobrý den,
mám problém s jedním makrem co píšu a nikde jsem nenašel konkrétní řešení. Proto bych chtěl požádat znalé VBI, jestli by mi neporadili jak na to. Jsem začátečník.

Mám 2 sešity. Potřebuji text z každé buňky ze sloupce C v "sešitu 1, listu 1" najít v "sešitu 2, listu 1" a pokud tam ten text najde, tak zkopírovat hodnotu ze sloupce G z řádku, ve kterém byl text nalezen do "sešitu 1" do sloupce G a řádku, ve kterém je hledaný text. Pokud se text v "sešitu 2" nenachází, nechat v příslušné buňce ve sloupci G v "sešitě 1" prázdné místo, nebo vrátit 0.

Zatím jsme napsal toto, nefunguje to a chtěl bych se zeptat, jako ten kód upravit, popřípadě napsat jiný, jednodušší. Předem děkuji za rady.

Sub Doplneni_jednotkovych_cen()

Dim radek_polozky As Integer
Dim kod_polozky As Variant
Dim radek_polozky_zdroj As Variant
Dim cena_polozky As Variant
Dim foundcell As Variant


For radek_polozky = 1 To 100

For radek_polozky_zdroj = 1 To 100
kod_polozky = ActiveSheet.Cells(radek_polozky, 3).Text

With Workbooks("Zdroj.xlsx").Worksheets("List1").Range( "A1:Z32000")

Set foundcell = .Cells.Find(what:=kod_polozky, _
after:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
lookat:=xlPart, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
End With


If foundcell = kod_polozky Then
cena_polozky = Workbooks("Zdroj.xlsx").Worksheets("List1").Cells( radek_polozky_zdroj, 7).Value2
ActiveSheet.Cells(radek_polozky, 7).Value = cena_polozky


End If


Next radek_polozky_zdroj

Next radek_polozky

End Sub