[ srdrazic @ 01.04.2011. 08:09 ] @
Postoji li mogućnost da se automatski nastavi niz slogova pritiskom na enter ili neko dugme u sheet2.
Ovo mi je potrebno jel imam po nekoliko stotina slogova pa mi je sporo stalno sa copy/paste?
Datoteka je u prilogu.
[ Ivek33 @ 01.04.2011. 21:20 ] @
Citat:
srdrazic: Postoji li mogućnost da se automatski nastavi niz slogova pritiskom na enter ili neko dugme u sheet2.
Na netu ima dosta VBA kodova za kopiranje na drugi Sheet,
Evo jedan ne baš elegantan , možda netko nabaci nešto jednostavnije.

Code:
Sub CopyWithNonBlanksRow()
Dim NR As Long
Dim InS As Worksheet
Dim OuS As Worksheet
Dim newRow As Integer
Dim colIndex As Integer
Dim rowIndex As Integer
Dim dataRange As Range


Set InS = Sheets("Sheet1")
Set OuS = Sheets("Sheet2")
Set dataRange = InS.Range("M12:N22")
NR = OuS.Range("A" & Rows.Count).End(xlUp).Row + 1

For rowIndex = 1 To dataRange.Rows.Count
        If Application.CountIf(dataRange.Rows(rowIndex), "") < dataRange.Columns.Count Then
dataRange.Rows(rowIndex).Copy
    OuS.Range("A" & NR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
NR = NR + 1
End If
Next rowIndex
'Range("Emp,Manual,Role,OHrs,SHrs,Casual,CRate,AddType,AddHrs,FDate,TDate").Value = ""
Sheets("Sheet1").Select
Application.CutCopyMode = False
    Range("E3").Select
End Sub
[ srdrazic @ 02.04.2011. 15:37 ] @
Pa ovo super radi, samo bi mi trebalo da prepiše slovo "P" pored prvog broja i negativne vrednosti kako je u slogu prikazano.
Negativne i pozitivne vrednosti pokazuju, drugom programu u kojem importujem niz, koja je desna a koja je leva strana..
[ srdrazic @ 02.04.2011. 16:32 ] @
Rešio sam problem spajanjem dve ćelije. Hvala za pomoć. Ako može VBA code-om još bolje.