Predmet:Re: ubacivanje prazne celije radi uskladivanja dvije kolone
ok , probacu kako radi kad stignem, a sada jedno pitanje
Vidim da ti prvo stavis funkciju, a onda kod. Kod zxz je obrnuto . On stavlja funkcije na kraju. Mozda je tvoj nacin bolji jer prvo imas funkcije na uvid pa pregledas kod, a mozda je stvar navike kako se tko navikne. Dobro, to nije pitanje to je komentar.
1. ono for m=1 to 5 je ukupno u nizu , imamo sljiva,visnja,tresnja,breskva,marelica 5 stvari. Znaci ja ako imam vise tih u nizu onda stavim veci broj, jel tako?
2. for i=1 to 40 je vjerojatno brojac o kojem si govorio. Malo kad cu isprobavati kod , ali za sada pretpostavljam da bi trebao broj biti puno veci zbog pomicanja celija prema dole?
PreuzmiIzvorni kôd (Visual Basic):Public Function Unizu(S As Range) As Boolean
Dim Nizz As Range
Set Nizz = Range("M16", Range("M16").End(xlDown)) 'gde su celije za proveru
Unizu = False
For Each st In Nizz.Cells
If (S = st) Then
Unizu = True
GoTo kraj
End If
Next st
kraj:
End Function
Public Sub slozi()
Dim r As Range
Dim uzorak As Range
Dim selekcija As Range
Dim pocetna As Range
Set pocetna = Range("B2") 'odakle krece
Set uzorak = Range("A2") 'prva celija sa kojom uporedjujemo
For m = 1 To 5
Set r = pocetna
For i = 1 To 40
If Unizu(r) Then 'proveravamo da li se vocka nalazi u grupi za slaganje
Do Until r = uzorak
Set selekcija = Range(r, r.End(xlDown)) 'pomeramo celiju i sve povezane
selekcija.Select 'ispod nje za po jedno mesto na dole
Selection.Cut
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Set uzorak = uzorak.Offset(1, 0) 'pa uzimamo sledecu ispod za uporedjivanje
'i tako dok ne poklopimo sa prvom kolonom
Loop
End If
Set r = r.Offset(1, 0)
Set uzorak = uzorak.Offset(1, 0)
Next i
Set pocetna = pocetna.Offset(0, 1) 'prelazak na sledecu kolonu
Set uzorak = Range("A2")
Next m
End Sub
ovo Offset mi je strano, ali o tome cemo drugi puta, za sada cu to samo prepisati bez pameti
hvala.
zivot je moja domovina.
Ovaj post je ureden
1
puta. Posljednja izmjena 09.01.2017 14:23 od strane Avko.