Merhabalar ,
Size aşağıda sunduğum kod sayfa 1 deki veriyi seçip butona bastığımda sayfa 2 ye belirlenen dizilime göre kopyalama yapıyor son olarak Now(tarih ve saat) atamasını ayırmak sadece tarihi koymak için bir kod ekledim. fakat bu seferde tarih formatında değilde 01.01.2019 şeklinde görünüyor halbuki ben süzgeçte tarih sıralamasında +2019 > +Ocak gibi kırılımlarını görmek istiyordum bunun için de en alttaki Range (R:R) ile başlayan kodu ekledim yani hücresine otomatik çift tıklama yapsın ki o hali alsın. Kendi laptopumda çalışıyor fakat başka PC de Compile error in hidden module : Module 7 This error commonly occurs when code is incompatible with the version platform or architecture of this application Click help for information on how to correct this error. şeklinde hata aldım. Bu kodun diğer bilgisarda çalışması için ne yapabilirim ?
Sub aktar()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Long
Dim S1 As Worksheet, S2 As Worksheet, Son As Long
Set S1 = Sheets("AramaLıst")
Set S2 = Sheets("VERI")
S1.Select
If ActiveCell.Column = 1 Then
S1.Cells(ActiveCell.Row, 1).Copy
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1
S2.Range("A" & Son).PasteSpecial xlPasteAll
S2.Range("L" & Son) = 1
S2.Range("R" & Son) = Now ' tarih ve saat olarak atıyor'
End If
Worksheets("VERI").Activate
For i = 2 To Cells(Rows.Count, "R").End(3).Row ' tarih ve saati ayırmak için kullandım'
Cells(i, "R") = Left(Cells(i, "R"), 11)
Next i
Range("R:R").TextToColumns Destination:=Range("R1"), DataType:=xlDelimited, _ ' kalan tarih hücresini otomatik çift tıklama ile normale döndürmek için kullandım'
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Application.ScreenUpdating = True
End Sub
Size aşağıda sunduğum kod sayfa 1 deki veriyi seçip butona bastığımda sayfa 2 ye belirlenen dizilime göre kopyalama yapıyor son olarak Now(tarih ve saat) atamasını ayırmak sadece tarihi koymak için bir kod ekledim. fakat bu seferde tarih formatında değilde 01.01.2019 şeklinde görünüyor halbuki ben süzgeçte tarih sıralamasında +2019 > +Ocak gibi kırılımlarını görmek istiyordum bunun için de en alttaki Range (R:R) ile başlayan kodu ekledim yani hücresine otomatik çift tıklama yapsın ki o hali alsın. Kendi laptopumda çalışıyor fakat başka PC de Compile error in hidden module : Module 7 This error commonly occurs when code is incompatible with the version platform or architecture of this application Click help for information on how to correct this error. şeklinde hata aldım. Bu kodun diğer bilgisarda çalışması için ne yapabilirim ?
Sub aktar()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Long
Dim S1 As Worksheet, S2 As Worksheet, Son As Long
Set S1 = Sheets("AramaLıst")
Set S2 = Sheets("VERI")
S1.Select
If ActiveCell.Column = 1 Then
S1.Cells(ActiveCell.Row, 1).Copy
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1
S2.Range("A" & Son).PasteSpecial xlPasteAll
S2.Range("L" & Son) = 1
S2.Range("R" & Son) = Now ' tarih ve saat olarak atıyor'
End If
Worksheets("VERI").Activate
For i = 2 To Cells(Rows.Count, "R").End(3).Row ' tarih ve saati ayırmak için kullandım'
Cells(i, "R") = Left(Cells(i, "R"), 11)
Next i
Range("R:R").TextToColumns Destination:=Range("R1"), DataType:=xlDelimited, _ ' kalan tarih hücresini otomatik çift tıklama ile normale döndürmek için kullandım'
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 4), TrailingMinusNumbers:=True
Application.ScreenUpdating = True
End Sub