leno mota

Olá,

 

Aparentemente o problema está na forma em que está sendo feita a validação da sessão em user_controller.php:

$this->login_model->is_logado();

Veja esse exemplo:

https://www.mail-archive.com/[email protected]/msg04958.html

Fala Pessoal,

 

Quanto tempo!

Estou desenvolvendo um sistema aqui e estou com dúvidas de como passar os videos via PHP:

Do Client -> Para o Server   &&  Do Server -> Para outro Cliente

A linguagem server side utilizada é o PHP.

Já estou dando uma estudada do ffmpeg, mas confesso que meus testes ainda não foram satisfatórios.

 

Toda ajuda é bem vinda.

 

Sim! Faz toda a diferença...

1 + 1 = 2 - Type Integer

1 & 1 = 11 -Type String

rsrs.... Somente pra ilustrar.

Substitua a linha:

Nome = Range("Q3").Value + Range("Q2").Value

Por:

Nome = Range("Q2").Value & " " & Range("Q3").Value

Coloquei um espaço entre o valor de q1 e q2, mas se quiser sem espaços, faça assim:

Nome = Range("Q2").Value & Range("Q3").Value

Espero ter ajudado e marca mais um polegar verde ae... rs

Qualquer dúvida pode chamar...

Att,

Leno Mota

Claro que tem como ser Q2 + Q3!!! Podemos "TUDO" em VBA... rsrs...

"Q2" & "Q3" são valores numericos?

Subistitua a linha:

MyLocal = "C:\Users\HP\SkyDrive\BONINI REPRESENTAÇÕES\1 - PEDIDOS\1 - PEDIDOS A ENVIAR\"

Nome = Range("Q3").Value

Por:

MyLocal = "C:\Users\HP\SkyDrive\BONINI REPRESENTAÇÕES\1 - PEDIDOS\1 - PEDIDOS A ENVIAR\"

Nome = Range("Q3").Value + Range("Q2").Value

O meu e-mail é: <[email protected]>

Quanto ao "incremento de Q3 faça assim:

Inclua isso antes do "End Sub" desse seu código:

Dim y As Integer

y = Range("Q3").Value + 1

Range("Q3") = y

Qual a próxima dúvida? rs...

Não esqueça de marcar minhas respostas como úteis (clicando no polegar verde)...

Seria possivel postar sua planilha no sendspace? Se quiser pode me mandar por e-mail tambem. Essa parte do botão de zerar não entendi. Zerar: Apagar todos os dados?

Alterei o Filename pra voce mas não tenho como testar ja que meu windows é o XP e não possuo a pasta "Users"... etc...

O Código:

Option Explicit

Sub Salvando()

Dim Nome As String

Dim SDate As String

Dim MyLocal As String

MyLocal = "C:\Users\HP\SkyDrive\BONINI REPRESENTAÇÕES\1 - PEDIDOS\1 - PEDIDOS A ENVIAR\"

Nome = Range("Q3").Value

SDate = Now

If Nome <> vbNullString Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

MyLocal & Nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"

Else

MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

End If

End Sub

Fico no aguardo da planilha ou de uma explicação mais clara sobre o botão de zerar...

Att,

Leno Mota

Boa noite renatobonini. Demorei mas consegui o que voce precisava.

Option Explicit

Sub Salvando()

Dim Nome As String

Dim SDate As String

Nome = Range("Q3").Value

SDate = Now

If Nome <> vbNullString Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"

Else

MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

End If

End Sub

Não esqueça de encerrar o tópico e marcar o polegar verde a sua direita.

Qualquer dúvida estou à disposição,

Leno Mota

Boa noite renatobonini. Demorei mas consegui o que voce precisava.

Option Explicit

Sub Salvando()

Dim Nome As String

Dim SDate As String

Nome = Range("Q3").Value

SDate = Now

If Nome <> vbNullString Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Nome & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

True

MsgBox "O arquivo " & Nome & " foi salvo em " & SDate & ".", vbOKOnly, "Salvo"

Else

MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"

Qualquer dúvida estou à disposição,

Leno Mota.

End If

End Sub

Não esqueça de encerrar o tópico e marcar o polegar verde a sua direita.

Qualquer dúvida estou à disposição,

Leno Mota