| |
V excelu imam stolpce z začetnim datumum in stolpce z končnim datomum. Sem še naredil stolpec, da mi odšteva preostanek dni, do končnega datuma in tudi da se mi obarva rdeče preostanek, ko pode pod 31 dni.
Imam vprašanje, če je mogoče v excelu narediti, da bi me excel sam opozoril da je mesec dni do konca?
Hvala in LP
spremenil: NikMan (2.3.2012 ob 13.58.53)
|
| |
| |
Ko bi ti torej odprl excelov dokument, bi ti on izpisal obvestilo, da je v nekem stolpcu še mesec dni do konca? To se da narediti z makrom.
|
| |
| |
To bi bilo super..kako pa se to naredi? 
Hvala in LP
|
| |
| |
Čisto enostavno to na žalost ni, ker je treba tu že imeti malo znanja programiranja. Sicer pa za programerja je to dokaj enostavna naloga.
|
| |
| |
Pa sem zdaj približno porihtal, da mi kaže opozorilo, vendar moram zapreti excel v listu3, da mi pokaže opozorila in me zanima, če bi mi lahko kdo pomagal, kako naj spremenim ukaz v mikro (With ActiveSheet 'Worksheets("Sheet3" )), da mi bo, če tudi zaprem na prvi strani, pokazalo opozorilo z tretje strani..
zdaj imam tako napisano, da me par dni opozarja...
Sub DueIn32Days()
Dim ContractID
Dim CustomerName As String
Dim Customers As String
Dim DueDates As Range
Dim N As Long
Dim RowsDue As String
With ActiveSheet 'Worksheets("Sheet3")
Set DueDates = .Range(Cells(2, "D"), Cells(.Rows.Count, "D").End(xlUp))
For Each Cell In DueDates
With Cell
If .Value = CDate(Int(Now) + 32) Then
N = N + 1
ContractID = .Offset(0, -1).Value 'Column C
Customers = Customers & ContractID & " " & vbCrLf
RowsDue = RowsDue & "A" & .Row & ":N" & .Row & ","
End If
If .Value = CDate(Int(Now) + 31) Then
N = N + 1
ContractID = .Offset(0, -1).Value 'Column C
Customers = Customers & ContractID & " " & vbCrLf
RowsDue = RowsDue & "A" & .Row & ":N" & .Row & ","
End If
If .Value = CDate(Int(Now) + 30) Then
N = N + 1
ContractID = .Offset(0, -1).Value 'Column C
Customers = Customers & ContractID & " " & vbCrLf
RowsDue = RowsDue & "A" & .Row & ":N" & .Row & ","
End If
If .Value = CDate(Int(Now) + 29) Then
N = N + 1
ContractID = .Offset(0, -1).Value 'Column C
Customers = Customers & ContractID & " " & vbCrLf
RowsDue = RowsDue & "A" & .Row & ":N" & .Row & ","
End If
If .Value = CDate(Int(Now) + 28) Then
N = N + 1
ContractID = .Offset(0, -1).Value 'Column C
Customers = Customers & ContractID & " " & vbCrLf
RowsDue = RowsDue & "A" & .Row & ":N" & .Row & ","
End If
If .Value = CDate(Int(Now) + 27) Then
N = N + 1
ContractID = .Offset(0, -1).Value 'Column C
Customers = Customers & ContractID & " " & vbCrLf
RowsDue = RowsDue & "A" & .Row & ":N" & .Row & ","
End If
End With
Next Cell
End With
If N <> 0 Then
ActiveSheet.Range(Left(RowsDue, Len(RowsDue) - 1)).Select
MsgBox Customers, vbExcal + vbOKOnly, "Pretek pogodbe..."
End If
End Sub
Zdaj pa prosim če mi kdo pomaga kako to porihtati.
Podatke o naročniku imam na prvi strani, na drugi strani imam podatke o montaži, na tretji strani pa imam podatke o pogodbi in želim da me glede pogodbe excel opozarja. Na tretji strani imam ime naročnika (stolpec C) in datum prenehanja pogodbe (stolpec D). Zdaj mi javlja 6 dni kateri so mesec dni pred pretekom, vendar mi mora excel zagnat na tretji list, če ne je napaka. Ne vem točno kako zamenjati With ActiveSheet, da bo vseeno v katerem listu se excel zažene oz zapre.
Hvala za pomoč...LP
spremenil: Matej V. (7.3.2012 ob 15.26.59)
|
| |
| |
Sem že porihtal tak da ni treba več pomoči... :D
|
| |
Prikazujem 1 od skupno 1 strani |
|
