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
Poišči in označi prvo prazno celico
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:
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
Matjaž Prtenjak
Administrator