Satırdaki yazılı olan metni diğer sekmeye makro ile bir buton yardımı ile aktarma

[ibrahimaktas1905]

Merhabalar üstatlar
eklemiş olduğum dosya günlük takibi yapılan işlemlerde arıza olan kısımları diğer sekmede yer alan arızlar bölümüne makro ile aktarma işleminin yapılması gerekmektedir. yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?
Aktarma yaptıktan sonra verilerin silinip silinmeyeceği hakkında da sanki bir şey olması gerekir diye düşünüyıorum.

Public Sub Aktar()

Dim arr As Variant
Dim i   As Long
Dim j   As Long

Dim tar As Date

j = Sayfa2.Cells(Rows.Count, "A").End(3).Row

arr = Sayfa1.UsedRange.Value

For i = LBound(arr, 1) To UBound(arr, 1)
    If IsDate(arr(i, 5)) Then tar = arr(i, 5)
    If Not arr(i, 7) = "" Then
        j = j + 1
        Sayfa2.Cells(j, "A") = tar
        Sayfa2.Cells(j, "B") = arr(i, 1)
    End If
Next i

MsgBox "Bitti...."

End Sub

 

[ibrahimaktas1905]

Merhaba,

Aşağıdaki kodları dener misiniz?
Aktarma yaptıktan sonra verilerin silinip silinmeyeceği hakkında da sanki bir şey olması gerekir diye düşünüyıorum.

Public Sub Aktar()

Dim arr As Variant
Dim i   As Long
Dim j   As Long

Dim tar As Date

j = Sayfa2.Cells(Rows.Count, "A").End(3).Row

arr = Sayfa1.UsedRange.Value

For i = LBound(arr, 1) To UBound(arr, 1)
    If IsDate(arr(i, 5)) Then tar = arr(i, 5)
    If Not arr(i, 7) = "" Then
        j = j + 1
        Sayfa2.Cells(j, "A") = tar
        Sayfa2.Cells(j, "B") = arr(i, 1)
    End If
Next i

MsgBox "Bitti...."

End Sub

elinize sağlık çok teşekkür ederim. oldu

 

[Necdet]

Merhaba,
Söylemeyi unuttum bir açıklamayı 2 satır halinde yazılmış, bu durumda ikinci satırı aktarmadım, açıklamayı tek hücreye yazmanızı öneririm.

 

[ibrahimaktas1905]

aktarmayı yaptıktan sonra silmiyor. bizim için silmemesi gerekmektedir. aktarmayı yaptığımız yerde silme işlemi vardır. onun da kodu mevcuttur. bu şekilde yapmış olduğunuz kod yeterlidir. elinize sağlık tekrardan.