Poišči in označi prvo prazno celico

Pomoč pri izdelavi makrov
Odgovori
kh
Prispevkov: 3
Pridružen: Ne Sep 28, 2008 7:46 pm

Poišči in označi prvo prazno celico

Odgovor Napisal/-a kh »

Lep pozdrav vsem!

Sem nov na tej strani. Imel bi pa za vas, ki veste več od mene eno vprašanje.
Na forumu sem dobil zadevo, ki sama poišče prvo prazno celico in vanjo zapiše besedilo. Sam pa bi rad to celico samo označil, nato pa v njo skopiral pripravljena podatke. Po delih mi zadeva deluje težava je samo v določitvi prve prazne celice.

Sub Prva_Prazna()
Sheets("Baza1").Select
Selection.AutoFilter Field:=21
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.ScrollRow = 1
Selection.AutoFilter Field:=21, Criteria1:="1"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Baza pivot").Selec
For i = 1 To 65536
If Cells(i, "A") = "" Then Cells(i, "A") = "Vaše sporocilo ali karkoli ": Exit For
Next i
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Hvala!
KH
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

kolikor razumem vaš problem in gledam priloženo kodo, je stvar v tem, da vi sicer prazno celico najdete a vanjo vpišete konstanten niz znakov: ""; pravzaprav pa želite to celico izbrati in nato vanjo prekopirati podatke:

Koda: Izberi vse

Sub Prva_Prazna() 
  .....
  ' vaša programska koda do for zanke
  .....

  For i = 1 To 65536
    If Cells(i, "A") = "" Then 
      Cells(i, "A").Select
      Exit For
    End If
  Next i

  Selection.PasteSpecial Paste:=xlPasteValues, _
                         Operation:=xlNone, _
                         SkipBlanks:=False, _
                         Transpose:=False
End Sub
lp,
Matjaž Prtenjak
Administrator
kh
Prispevkov: 3
Pridružen: Ne Sep 28, 2008 7:46 pm

Odgovor Napisal/-a kh »

Pozdravljen!

Hvala za hiter odgovor, sedaj zadeva deluje.

LP KH
Odgovori