Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Ispravka koda za insert row

[es] :: Office :: Excel :: Ispravka koda za insert row

[ Pregleda: 284 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

jaskojsako
BIH

Član broj: 141632
Poruke: 192
2a02:27b0:5500:a700:e47f:8c6..



+4 Profil

icon Ispravka koda za insert row12.12.2020. u 21:33 - pre 7 meseci
Pozdrav
Trebala bi mi dopuna ili ispravka koda,naravno ako ima voljni da pogledaju.
-------------------------------------------
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False

If EntireRow.Row() < 38 Then

MsgBox "LIMIT"
Exit Sub

Else
End If

Dim lHiddenRws As Long
On Error Resume Next

With Cells.SpecialCells(xlCellTypeVisible)
lHiddenRws = .Areas(1).Rows.Count + 1
.Areas(1)(lHiddenRws, 1).EntireRow.Hidden = False

End With
End Sub
---------------------------------------------------------
Donji kod otkriva sakrivene retke,stavio sam if ako dodje do retka 39 da izbaci poruku i trebao mi da izadje iz koda a ako ne da otkrije red,ali ne funkcionise.
Ako neko moze da ispravi kod,unaprijed hvala.

Jasmin
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 831
*.dynamic.sbb.rs.



+322 Profil

icon Re: Ispravka koda za insert row12.12.2020. u 21:54 - pre 7 meseci
Ne razumem šta sve taj tvoj program treba da uradi ali evo ti code za otkrivanje skrivenih redova

Code:

Sub OtkrijSkriveneRedove()
    Dim i as Long
    For i = 1 To 38
       If Rows(i).EntireRow.Hidden = True Then Rows(i).EntireRow.Hidden = False
    Next i
End Sub
 
Odgovor na temu

jaskojsako
BIH

Član broj: 141632
Poruke: 192
2a02:27b0:5501:4f30:353a:ebb..



+4 Profil

icon Re: Ispravka koda za insert row13.12.2020. u 16:04 - pre 7 meseci
Pozdrav
Hvala na javljanju.
Ovako donji dio koda otkriva jedan red,to vec imam,ali sam stavio ovaj kod ispred da prije nego sto otkrije red
da provjeri ako dodje do reda broj 38 ( u ovom slucaju,jer sam stavio data validation do tog reda) da izbaci poruku i exit iz koda, ako ne da da otkrije sljedeci red to vec imam.
Kad ubacim ovaj kod ispred prikazuje greske.
If EntireRow.Row() < 38 Then

MsgBox "LIMIT"
Exit Sub

Else
End If
------------------------------------------------------------
ovaj dio samostalno radi a kad ubacim gornji kod, da izvrsi provjeru izbacuje gresku

Dim lHiddenRws As Long
On Error Resume Next

With Cells.SpecialCells(xlCellTypeVisible)
lHiddenRws = .Areas(1).Rows.Count + 1
.Areas(1)(lHiddenRws, 1).EntireRow.Hidden = False

-------------------------------------------------------
hvala unaprijed
Jasmin
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 497



+42 Profil

icon Re: Ispravka koda za insert row13.12.2020. u 19:58 - pre 7 meseci
Range.EntireRow property (Excel)
docs.microsoft.com/en-us/office/vba/api/excel.range.entirerow
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2865



+64 Profil

icon Re: Ispravka koda za insert row13.12.2020. u 21:12 - pre 7 meseci
Vidi može li ti ovo pomoći
Code:
'Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lHiddenRws As Long
Dim LastRow As Integer
Dim x As Integer

Application.ScreenUpdating = False

    'find last row
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
       x = LastRow

    'count visible rows
    RowCount = Range("A1:A" & x).Rows.SpecialCells(xlCellTypeVisible).Count
       r = RowCount

        'kada vba izbroji 38 vidljivih redova od A1 do A38
        If r = 38 Then
            MsgBox "LIMIT Rows = " & r
            Exit Sub
            Else
        End If

     'svaka promjena na sheetu otkriva jedan red počevši od A1
            With Cells.SpecialCells(xlCellTypeVisible)
                lHiddenRws = .Areas(1).Rows.Count + 1
                .Areas(1)(lHiddenRws, 1).EntireRow.Hidden = False
            End With
Application.ScreenUpdating = True
End Sub
 
Odgovor na temu

jaskojsako
BIH

Član broj: 141632
Poruke: 192
..501:c210:dde4:cf08:8d65:ce2b



+4 Profil

icon Re: Ispravka koda za insert row14.12.2020. u 14:33 - pre 7 meseci
Pozdrav
Hvala Ivek,radi bas kako treba-
lp
Jasmin
 
Odgovor na temu

[es] :: Office :: Excel :: Ispravka koda za insert row

[ Pregleda: 284 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.