- Katılım
- 3 Haziran 2017
- Mesajlar
- 797
- Excel Vers. ve Dili
- 2007, 32
- Altın Üyelik Bitiş Tarihi
- 08/06/2018
Ama eski dosyalar da o sayfalar aynı dosyada değildi.Evet BedriA
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ama eski dosyalar da o sayfalar aynı dosyada değildi.Evet BedriA
Dosyalarınızda bir hayli kod var; sürekli hata aldım ve kodlarınıza vakıf olamadığım için işin içinden çıkamadım.Aynı dosya da değil 2 dosya yolladım 1.dönem ve 2.dönem diye
Sub Makro5()
For i = 1 To 20
Sheets("sayfa1").Select
Range("R" & i).Select
ActiveCell.FormulaR1C1 = "=ROW(RC[-17]) &""-""& ""s"""
Next i
End Sub
Sub Kaydet()
Sheets("sayfa1").Select
Range("F8:G47").Select
Selection.Copy
Sheets("1-o").Select
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Select
Range("H8:I47").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1-o").Select
Range("I8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub