Boa tarde, meu site acabou sendo invadido e apos um breve estudo achei um redireccionamento <script>window.location.replace("https://cartoonmines.com/scount");window.location.href = "https://cartoonmines.com/scount";</script> porem não consigo saber onde está alguém já teve este problema? 
 
Obrigado

Ola amigos,
 
Estava querendo criar algo para meu site, um botao igual do site abaixo para calcular formas de pagamento "ver formas de pagamento":
 
https://www.chipart.com.br/pc-gamer-level-one-black-amd-3400g
 
Segue imagem em anexo.
 
Alguem poderia me ajudar se tem algum script algo pronto ou que ajude para abrir pop up modal?
 
Obrigado a todos.
 
 

Olá pessoas ... 
Primeiro de tudo obrigado desde já ... 
Estou criando conteúdo para estudos, aproveitando o tempo estudando PHP, Mysql e css Juntos e algumas ideias vão surgindo, não que elas sejam pra complicar, mais sim ficar mais objetivo o site Local. Sendo assim, ajuda dos colegas é .
 
----------------------------------------
Eu tenho 3 Colunas >
Coluna 1
Coluna 2
Coluna 3
as 3 segui height auto, de acordo com conteudo, sendo que a coluna 1 sempre tem height maior, pois é ela que mostra capitulos de um livro, por exemplo.
A coluna 2 tem conteudo do capitulo selecionado na coluna 1, nela coloco os titulos com links ancoras, de todo o capitulo ( selecionado na coluna 1), obviamente a coluna 3 contem o capitulo, com seus:
<p></p>
<img>
<strong>
<h1 a h6> etc...
ok.
 
 
O problema
----------------------------------------
 
eu gostaria de colocar a coluna 2 seguindo a rolagem da página top e bottom, para top, ok de boa,  consigo com .rolagem { position: stick;} para bottom a coluna 2 é maior que a tela em alguns casos, então eu só consigo ver todo conteúdo ao chegar no final da coluna 1 ou 3.
 
Então seria na rolagem a baixo, a coluna 2 também rolar, mas ficar com conteudo sempre na tela. Pra baixo rola até o final, pra cima rola até o topo da coluna, nunca sair o conteúdo da tela, não importa o tamanho das colunas 1 e 3. 
Como posso resolver? tem como só com css? 
 
 
---------------------------------------- 

Boa noite , estou com uma duvida de colocar a coluna ao lado da outra , segue imagens do código e do prototipo , alguém consegue me ajudar ? falar em que estou errando.
TENTEI USAR DISPLAY : FLEX  E INLINE-BLOCK DECLARANDO AS COLUNAS TB MAS "não FUNCIONOU".

Sou estudante de Programação e nunca tinha usado VBA e tenho de entregar um trabalho, mas nunca tive formação nesta linguagem, e estou a ter problemas  no programa na parte de Pesquisar registros com filtros, já tentei ao máximo fazer seguindo tutoriais na internet, até que uma pessoua me ajudou e mandou-me codia e disse para fazer um passos só que eu nao sei seguir esses passos.
 Fico muito agradecido se alguém me conseguir ajudar.
   
O que a pessoa me indicou:
" Para testar o código coloque um filtro na planilha Dados no range A1:L1 e crie uma planilha com o nome de Auxiliar. Cole o código no formulário Pesquisar. "
 
Option Explicit Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Call Filtro(TextBox1.Text, ComboBox1.Text) End Sub Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Call Filtro(TextBox2.Text, ComboBox2.Text) End Sub Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Call Filtro(TextBox3.Text, ComboBox3.Text) End Sub Private Sub UserForm_Initialize() ComboBox1.RowSource = "Relatório!A1:A12" ComboBox2.RowSource = "Relatório!A1:A12" ComboBox3.RowSource = "Relatório!A1:A12" End Sub Sub Filtro(ByVal Pesquisa As String, Campo As String) Dim Coluna As Integer Dim Area As Range Set Area = ThisWorkbook.Sheets("Dados").[A1:L1] Coluna = WorksheetFunction.Match(Campo, Area, 0) If Pesquisa <> "" Then If IsNumeric(Pesquisa) = False Then Pesquisa = "*" & Pesquisa & "*" Call Area.AutoFilter(Field:=Coluna, Criteria1:=Pesquisa) Call CopiaTabela Call PreencheListBox End If End Sub Sub CopiaTabela() ThisWorkbook.Sheets("Auxiliar").[A:L].Clear ThisWorkbook.Sheets("Dados").[A1].CurrentRegion.Copy ThisWorkbook.Sheets("Auxiliar").[A1].PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub Sub PreencheListBox() Dim Area As Range Set Area = ThisWorkbook.Sheets("Auxiliar").[A1].CurrentRegion ListBox1.ColumnCount = Area.Columns.Count ListBox1.ColumnHeads = True ListBox1.RowSource = "Auxiliar!" & Area.Offset(1).Address End Sub Link do Programa: 
https://drive.google.com/file/d/1ucJVL5Ijg0IcDqaFzoJi8aiMPb0NCbjI/view?usp=sharing