Mulla on excel-file, jossa alatauluja (sheet).
Nyt pitäisi saada siirtymään arvot toiseen sheetiin siten, että:
-column D on sarjanumero, joka esiintyy sheetissä 11 ja 13
-sheetissä 11 on sarjanumeroita 600, sheetissä 13 vain noin 270
-jos sheet 13 sarjanumero löytyy sheetistä 11, pitää excelin kopioida ko. sarjanumeron riviltä kolumnien G ja Q arvot sheetiin 13
Tämä siis pitäisi saada kirjoitettua "excelinä" eli kaava. Ei mahdu mun päähän.
Nyt pitäisi saada siirtymään arvot toiseen sheetiin siten, että:
-column D on sarjanumero, joka esiintyy sheetissä 11 ja 13
-sheetissä 11 on sarjanumeroita 600, sheetissä 13 vain noin 270
-jos sheet 13 sarjanumero löytyy sheetistä 11, pitää excelin kopioida ko. sarjanumeron riviltä kolumnien G ja Q arvot sheetiin 13
Tämä siis pitäisi saada kirjoitettua "excelinä" eli kaava. Ei mahdu mun päähän.
Vastaukset 3
Vanhimmat
VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)
moduuliin
Sub Kopioi()
Dim vika As Integer
Dim Originaali As Range
Dim Haettava As Range
Sheets("Taul13").Activate
vika = Range("D65536").End(xlUp).Row
Set Originaali = Range("D1:D" & vika)
Sheets("Taul11").Activate
vika = Range("D65536").End(xlUp).Row
Set Haettava = Range("D1:D" & vika)
Range("D1").Select
For Each cell In Originaali
Set Löydetty = Haettava.Find(What:=cell.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Löydetty Is Nothing Then
cell.Offset(0, 1) = Löydetty.Offset(0, 3)
cell.Offset(0, 2) = Löydetty.Offset(0, 13)
End If
Next
End Sub
Kiitokset !
Yritetään rankasti ja katsotaan, mihin päästään.