Kıramadınmı şifreyi daha abey
Bende diyordum berduş hocamız akşama kadar çözer diye
internetten bakıp kırdım da sorunu çözemedim
anlamadığım yığınla
Excel kodu var yani aslında tam sizlik
isterseniz şifresiz dosyayı yükleyeyim
(10/11/2020, 21:44)berduş yazdı: [ -> ]internetten bakıp kırdım da sorunu çözemedim
anlamadığım yığınla Excel kodu var yani aslında tam sizlik
isterseniz şifresiz dosyayı yükleyeyim
Şifre benim içinde sorun değil abey
Vakit bulunca bakarım.
Sub AKTAR()
Dim son As Long
Dim syfKayitlar As Worksheet
Set syfKayitlar = ThisWorkbook.Sheets("KAYITLAR")
son = syfKayitlar.Range("A" & Rows.Count).End(3).Row
If son = 2 Then
MsgBox "Aktarilacak veri yok...", vbCritical, "Hata"
Exit Sub
End If
syfKayitlar.Range("A3:AK" & son).Copy
Sheets("GENEL").Range("A" & Rows.Count).End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Aktarma tamamlandi...", vbInformation, "Aktarma"
Set syfKayitlar = Nothing
End Sub
Konu sahibi nerede acaba?
HOCAM HASTANEDEYDIM KUSURA BAKMAYIN YENI GORDUM MESAJLARINIZI