Just nu i M3-nätverket
Gå till innehåll

söka om ett område är tomt med Excel VBA


Tommy H

Rekommendera Poster

Hej!

Hur får jag ett svar om någon av mina 4st celler i rntest är ifylld, eller om man så vill att området inte är helt tomt.

Denna koden lämnar iaf inte rätt svar.

 

Sub test()
Dim rntest As Range
Dim rnvarde As String
ActiveCell.Select              'typ cell A1
Set rntest = ActiveCell.Resize(2, 2)
rntest.Value = "kalle"        'för testning

    If rntest <> "" Then
            rntest.Value = "ifylld"
    Else
             rntest.Value = "tom"
    End If

End Sub

 

/TH

Länk till kommentar
Dela på andra webbplatser

Lite testkod för dig som du kan jobba vidare med:


Sub test()
 Dim myRn As Range
 Set myRn = Selection
 Debug.Print "activecell " & myRn.Address
 Dim myRn2 As Range
 Set myRn2 = myRn.SpecialCells(xlCellTypeBlanks)
 Debug.Print "Areor " & myRn2.Areas.Count
 Debug.Print "Celler " & myRn2.Cells.Count
 myRn2.Select
 
End Sub

 

Länk till kommentar
Dela på andra webbplatser

Hmmm....

Tackar för svaret, men jag behöver nog lite förklaring till hur det jobbar!

Det ser ut som om det är ur följande rad som jag kan få fram om mina celler i området är tomma?

Set myRn2 = myRn.SpecialCells(xlCellTypeBlanks)

Även om det är testkod, så blir jag lite nyfiken på vad "Debug" gör för något.

/TH

Länk till kommentar
Dela på andra webbplatser

Hej och tack för ditt svar (igen)!

Jag fick inte till det med ditt tidigare förslag utan det blev en annan klumpig lösning som jag sedan har gått och retat mig på.

Jag är ju inte så hemma på detta men ger mig f-n på att lösa det, men ibland så tar det bara för mycket tid...

Skall fortsätta att testa!

Det kan ju inte (borde inte) vara så förbaskat svårt att se om ett cellområde är tomt.

/TH

Länk till kommentar
Dela på andra webbplatser

Debug.print skriver ut värdet i direktfönstret i VBA-editorn.

Skriv värden i ett område. Markera området och kör koden så ska du att den räknar hur många timma det finns.

 

Som en start på VBA-kod som du kan gå vidare om du vill ta den vägen. Ersätt

Set myRn = Selection

med annat sätt att fånga cellerna du vill räkna.

Annars går det, som MH pekar ut, att göra samma sak med formler.

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...