aşşağıdaki makroyu aynı kitap içindeki sheete değilde farklı bir çalışma kitabındaki sheete verilerimi kaydetmesini istiyorum.
buna göre nasıl düzenleyebilirim
yardımlarınız için teşekkür.
bu makro yine bu form içinden alınmıştır.
Sub auto_open()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("liste")
s2.Select
Do
DoEvents
s2.[a1] = Format(Now, "hh:mm:ss")
If Second(Now) = 1 Then c = 0
If Second(Now) = 0 And c = 0 Then
sat = WorksheetFunction.CountA(s2.[a3:a65536])
For a = 1 To 5
s2.Cells(sat + 3, 1) = Format(Date, "dd mmmm yy")
s2.Cells(sat + 3, 2) = Format(Now, "hh:mm")
s2.Cells(sat + 3, a + 2) = s1.Cells(1, a).Value
Next
c = c + 1
End If
Loop
End Sub
Sub auto_close()
End
End Sub
buna göre nasıl düzenleyebilirim
yardımlarınız için teşekkür.
bu makro yine bu form içinden alınmıştır.
Sub auto_open()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("liste")
s2.Select
Do
DoEvents
s2.[a1] = Format(Now, "hh:mm:ss")
If Second(Now) = 1 Then c = 0
If Second(Now) = 0 And c = 0 Then
sat = WorksheetFunction.CountA(s2.[a3:a65536])
For a = 1 To 5
s2.Cells(sat + 3, 1) = Format(Date, "dd mmmm yy")
s2.Cells(sat + 3, 2) = Format(Now, "hh:mm")
s2.Cells(sat + 3, a + 2) = s1.Cells(1, a).Value
Next
c = c + 1
End If
Loop
End Sub
Sub auto_close()
End
End Sub