pomoc u excel(control toolbox)

[mr.boni]

Treba ispisem kod u excel-u,kad kliknem na butten da mi celije
a1:a5 prenosimo u oblast f1:f5 ali samo ako u celiji nadjemo string
"ada".?

primer(bez button):
http://www.2shared.com/document/HmUkMcsP/primer_rec_ada.html

 

[ivan90BG]

Ja se ne razumem ni u kakvu dugmed, ali evo ti kod koji treba da napišeš u F1 i onda sadržaj te ćelije proširiš sve do F5.

=IF(SEARCH("ada";A1)<>0;A1)

Ovo neće ništa kopirati, ali će prikazati onako kako si napisao. (samo što ostavlja greške tamo gde ne dolazo do povoljnog ishoda) Ovo sam na brzinu sklepao. Vidi dal možeš malo da poboljšaš.

Pozdrav.

 

[ivan90BG]

Sad vidim da ako hoćeš ovo da radiš klikom na dugme, moraćeš da pišeš VBA makro. (a ja to ne znam)

 

[mr.boni]

da,to mi treba

 

[eMe]

Primer nisam uspeo da skinem, ali ovih par redova bi trebalo da ti pomogne (u slučaju da već nije rešeno). Potrebno je da napraviš jedan Button i da ga "asociraš" sa ovom procedurom. Tabelu tj. Sheet preimenuj u "Lista" ili promeni to "Lista" u naziv tvoje tabele u kodu. To bi bilo to.

Pozdrav

Sub GoBtn()
    Dim ink As Integer
    Dim strTemp As String
    For ink = 1 To 5
        strTemp = Sheets("Lista").Cells(ink, 1).Value
        If InStr(1, strTemp, "ada") <> 0 Then
            Sheets("Lista").Cells(ink, 6).Value = strTemp
        End If
    Next ink
End Sub