-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
m.zmrzlina
senior tag
Ezzel nincs is gondom.
Azt nem értem, hogy az első táblázatban egy termék oszlop van a másodikban három. Az első táblázat hibás elemeit mindig a második táblázat első termékoszlopában kell keresni és a mások kettőt változtatás nélkül hozzácsatolni, vagy az első táblázat hibás eleme (a helyes névvel) előfordulhat-e a második táblázat bármely termékoszlopában?
Még egy kérdés. Azonos sorban szereplő 3 terméknek azonos az ára is?
-
m.zmrzlina
senior tag
Akkor valami ilyesmi lenne a feladat?
a tablazat1 kb 600 sor, a tablazat2 kb 650, tehat itt lesz olyan is, ami a tablazat1-ben nincs benne.
Ezekhez az elemekhez honnan fogunk árat rendelni? Üresen hagyjuk az ár helyét?
Mindig a tábla1 terméknevei a bővebbek mint a te példádban vagy van olyan is mint az én példámban a nagyharang-templomi nagyharang ahol a tábla2 leírása bővebb?
-
Delila_1
Topikgazda
Úgy látszik, közben m.zmrzlinának más dolga akadt. Az ő példájából a templomi nagyharangot – ahol az első táblázatban csupán nagyharang szerepel – nem találja meg a lenti makró. Ahol az első táblában elől szerepel a második tábla termékneve (pl. első: lorem ipsum-dolor, második: lorem ipsum), ott rátalál.
Sub mm()
Dim talál As Integer, sor As Integer, usor As Integer
usor = Range("H1000").End(xlUp).Row
For sor = 3 To usor
talál = 1
On Error Resume Next
talál = Range("A:A").Find(Cells(sor, 8)).Row
Cells(sor, 11) = Cells(talál, 2)
Next
End SubAz adatokat úgy helyeztem el 1 lapon, ahogy m.zmrzlina.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Képletek:
H3 -> =D3
I3 -> =E3
J3 -> =F3Makró:
Sub mm()
Dim talál As Integer, sor As Integer
Dim usor As Integer, usor_1 As Integer
usor = Range("A1000").End(xlUp).Row
usor_1 = Range("H1000").End(xlUp).Row
For sor = 3 To usor_1
talál = 1
On Error Resume Next
talál = Range("A:A").Find(Cells(sor, 8)).Row
Cells(sor, 11) = Cells(talál, 2)
Next
For sor = 3 To usor
talál = 1
On Error Resume Next
talál = Range("H:H").Find(Cells(sor, 1)).Row
If Cells(sor, 11) = "" Then Cells(sor, 11) = Cells(talál, 2)
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest