Problem iskanja celic z pogojem...

[bluespeed]

V celico A1 vpišem letnico npr. 2006.

Sedaj poiščem iz datoteke s tem imenom (2006) nek obseg celic.
Težava nastane, ko hočem v osnovno datoteko prilepit ta obseg, ker ne znam avtomatsko poiskati pravi stolpec z to letnico (2006).
Stolpcev je lahko n, ker je lahko tudi datotek z letnico n.



Lp Peter

[admin]

Čakajte malo.

• Vpišete letnico 2006 v A1... OK!
• Odprete datoteko 2006.xls .... OK!
• V novoodprti datoteki označite področje celic in jih kopirate... OK!
• Spet ste v originalni datoteki in sedaj želite te celice nekam prilepiti... OK!
• Vaše vprašenje pa se glasi, kako najti 2006... Km... In kje iščete to 2006? O kakšnih stolpcih govorite...? Govorite o stolpcih z letnicami, hkrati pa pravite, da vpišete samo eno letnico v A1?

Boste morali biti malce natančnejši.

[bluespeed]

Ja, ko se vrnem v originalno datoteko imam stolpce, kjer je v prvi vrsti letnica (2004,2005,2006,2007...), pod njo pa v vrsticah vseh 12 mesecev. Sedaj bi samo rabil nekako avtomatizirat, da bi mi avt. poiskal stolpec z iskano letnico in pod njega v vseh 12 vrstic prilepil kopiran izbor.

Aha, še to....letnico vpišem v celico D19 in nato mi poišče datoteko z to letnico in kopira željen izbor in potem nastopi zgornji problem.
Upam da sem dovolj natančno opisal problem.

P.S. Me lahko tikaš...sma ista letnika!

[GoldZ]

Pozdravljeni!

Ker opažam, da to delate ročno, bo mogoče še najenostavnenje, da sprožite iskanje -

Koda: Izberi vse

 Ctrl + F

in vpišete 2006.

Je to to?

[bluespeed]

Ne, ni to to. Rabim v samem makroju, da mi najde stolpec z pravo letnico in potem prilepi izbor.

Vseeno hvala.

[admin]

Aha,

Očitno torej veste na katerem območju se torej nahajajo iskane letnice. V tem primeru pač preiščite območje in najdite prvo celico, ki ustreza pogoju:

Koda: Izberi vse

Function NajdiCelico(Celice As Range, IskanaVsebina As String, ByRef NajdenaCelica As Range) As Boolean
    Dim celica
    
    For Each celica In Celice
        If (celica.Value = IskanaVsebina) Then
            Set NajdenaCelica = celica
            NajdiCelico = True
            Exit Function
        End If
    Next
    
    NajdiCelico = False
End Function

Pa še testna funkcija:

Koda: Izberi vse

Sub test()
    Dim najdena As Range
    
    If (NajdiCelico(Range("a4:d6"), "2006", najdena)) Then
        MsgBox "nasel: " & najdena.Address
    Else
        MsgBox "Vsebine nisem našel!"
    End If
End Sub

[bluespeed]

Deluje!

Še enkrat HVALA