+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Yardım (/konu-excel-yardim.html)
RE: Excel Yardım - feraz - 10/11/2020
Kıramadınmı şifreyi daha abey
Bende diyordum berduş hocamız akşama kadar çözer diye
RE: Excel Yardım - berduş - 10/11/2020
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
RE: Excel Yardım - feraz - 10/11/2020
(10/11/2020, 21:44)berduş yazdı: internetten bakıp kırdım da sorunu çözemedimŞifre benim içinde sorun değil abey
anlamadığım yığınla Excel kodu var yani aslında tam sizlik
isterseniz şifresiz dosyayı yükleyeyim
Vakit bulunca bakarım.
RE: Excel Yardım - feraz - 10/11/2020
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
RE: Excel Yardım - ozanakkaya - 10/11/2020
Konu sahibi nerede acaba?
RE: Excel Yardım - cnyteser1 - 11/11/2020
HOCAM HASTANEDEYDIM KUSURA BAKMAYIN YENI GORDUM MESAJLARINIZI