[Excel] problem z makrojem, visual basic

Mam en problem.

Rad bi, da se makro naredi neko stvar pod pogojem (if).
Primer, če je v celici A5 vrednost 1 (ena), naj zbriše celo vrstico 5.

Zna kdo naredi kaj takega?
Takih vrstic je najvec 140. Se da nrediti za vse vrstice naenkrat, da ni treba za usako posebej pisat kodo.

Nekaj sem probaval tako, da sem posnel makro (oznacim vrstico+zbrišem), potem pa sem nekaj u kodi čačku, pa itk nimam veze s programiranjem.

Pls, help!

A5 je celica (A stolpec, vrstica 5). To sm dou mau na blef.
Uresnic mam tko u D stolpcu (D1, D2, D3, D4, ...D140). Če je ena v katerikoli celici, naj zbriše tisto vrstico.

Če je enka v D1, naj zbriše vrstico 1.
Če je v D2, naj zbriše vrstico 2, itd.

Ok, dela.
Kuko se pa naredi za več vrstic naenkrat:
Da ni sam za prvo. Vem da lahk za usako posebej nardim, sam se verjetn da narest da ti use naenkrat nardi.
Tm k je
Row = 1

Kaj napišem da bo od 1 do 140

Ta progi dela tok časa, dokler ne naleti na prazno celico D. Se pravi briše use vrstice, kjer je D = 1, izvajanje programa se zaključi ob prvi prazni D celici.

Tale vrstica zaključi program.
If Cells(Row, "D") = "" Then Exit Sub

Jes ne vem kak zgleda tvoja tabela. Kakšne so pa ostale D celice, če not ne piše 1. A so prazne?
Kako veš do katere vrstice moreš pregledat?
Če imaš fiksno sam do 140 vrstice, lahko namesto vrstice
If Cells(Row, "D") = "" Then Exit Sub
napišeš
if row > 140 Then Exit Sub

Samo, če narediš fiksno do katere vrstice, pa lahko to nardiš tut brez makroja, čist enostavn.
Označš cel D stolpec, greš pod Data->Filter->Auto Filter, potem se ti pojavi pri celeci D1 izbirni okenček, kjer izbereš 1, zdej bi mogu vidt samo vrstice kjer je D = 1. Pa use označš, in pritisneš na remove row. To je vse

Sej nism Računaličar. Jes sm štromar. Ampak mi je zanimiv mal programirat.

Bom se kle neki uprasu.
Mam en stolpec kjer so sami if stvaki notr in pa valda vrednosti, ki jih if stavek vrže vn. Se da razporedit vrednosti (števila) po vrstnem redu od najmanjšega do največjega. More bit neka finta da mi razporedi vrednosti ne pa if stavke (if(D4=F4;E4;""), if(D5=F5;E5;"")... itd.)

Upam da me razumete.

A mislš tko:
Imaš recimo v stolpcu A vrednosti
2
1
5
9
7
2
8
in zdej bi ti v tem istem stolpcu sortiral te vrednosti po velikosti.

To celo tvojo tabelco počrn/označ, pa pejt pod Data->Sort, pa potem ko te upraša Sort By, povej po katerem stolpcu sortiraš(to je stolpec kjer imaš vrednosti, recimo stolpec A iz mojga primera), in to ma da dela .

Sploh te ne zastopm, kaj ostane isto????????, dej kšno slikco, prej potem.
A si ti mislu, da bi sortiral po velikosti samo stolpec z vrednostmi, ostale stolpce bi pa pustu na mir? To bi se tut dal z makrojem sam, to je mal čudn(če sm te prov zastopu.


Makro za to da upišeš v B celico fiksno A, sploh ga nam testiru, ga bom kr na pamet napisu, sam se mi še sana ne kaj bi ti rad s tem naredu .

Row = 1
Do
    Cells(Row, "B") = "=$A$" & Row
    Row = Row + 1
Loop

Ker ČIP makro

Jao, zmrznu Excel ze drugic. Dej nared da se ustav pr doloceni vrstici, npr. 140.

Pa sej sm probu, pa ni delal. Nevem kva mi je blo. Ok, zej pa dela.

Dim vrednost As String

vrednost = Cells(1, "A")
Range("A" + vrednost).Select

in v keri celici bo pa pisal, katero celico naj izbere? In na katerem Listu ?

Sub Makro1()
Dim vrednost As String

Sheets("List1").Select
Range("A1:F10").Select
Range("F10").Activate
Selection.Copy
Sheets("List2").Select

vrednost = Cells(1, "A")
Range("A" + vrednost).Select

ActiveSheet.Paste
End Sub

Vau, zdej sm pogledu to temo. Sej to je prov najina tema . Pa ksn vesolček naju pride kdaj obiskat .
Na nest pa negrem. Ampak pijačka nj bo kr u dobrem

Da, per! Za nest, polet enkrat! Sečovlje!

Lahko v tistmu makroju k si ga prlepu, pod vrstico "...Hidden = True" in pred vrstico "else" napišeš Row = Row + 1.

Al pa kr ta makro prepiš

Sub Macro()
Row = 1

Do
If Cells(Row, "D") = 1 Then
Range("D" & Row).EntireRow.Hidden = True
Else
If Row > 140 Then Exit Sub
End If

Row = Row + 1
Loop
End Sub

Delal ni zato, ker nis imeu tm napisan Row = Row + 1, pol je pa skos skaku na vrstico 1.

Ti si pa takrt zbrisu če je bla 1, in je bla v vrstici že nova vsebina.

Res sm zakompliciran povedu :), ne znam drgač

zamenjaj
Range("D" & Row).EntireRow.Hidden = True
z
Union(ActiveWindow.RangeSelection, Range("D" & Row).EntireRow).Select
in za loop dodaj
ActiveWindow.RangeSelection.EntireRow.Hidden = True

Pazi skrita bo tudi vrstica v kateri si bil pred zagonom makra.

Označi jih pravilno (se pravi vse, ki imajo 1) samo skrije jih pa ne. Se bom se mal igral.

Sub Makro4()
Row = 1
Do
If Cells(Row, "K") = 1 Then
Union(ActiveWindow.RangeSelection, Range("K" & Row).EntireRow).Select
Else
If Row > 1500 Then Exit Sub
End If

Row = Row + 1
Loop
ActiveWindow.RangeSelection.EntireRow.Hidden = True
End Sub

Tole mam, pa ne nardi. Samo označ jih.

za steev
zamenjaj vrstico
If Row > 1500 Then Exit Sub
z
If Row > 1500 Then Exit Do,
Da se bo po koncu zanke izvedli še ukazi za zanko
Sam raje uporabljam v primerih, ko je znano število ponavljan for ...next zanko.

Hm, dela. hvala obema, čeprav sem uporabil smetkov predlog. Se mi zdi boljši, pa še čist uredu dela.

Ampak res hvala obema.

P.S.: Kdo gre na nest?

pozdrav. sem nov tukaj in vidim da obvladate sceno. imam torej problem: napisati funkcijo v makrih, ki zakodira in odkodira aktivno območje celic preglednice(openoffice calc). za kodiranje in odkodiranje mora uporanik vnesti geslo. help anyone?

Pizda, kuko bi dou

ActiveCell.FormulaR1C1 = "=SUM(R[-12]C:R[-2]C)"

namest tm k je [-12] spremenljivko 'vrednost14'.

lp