DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,
Boş bir hücreye 1 yazın ve kopyalayın. Tarihe çevireceğiniz alanı seçip özel yapıştır- çarp seçeneği ile yapıştırın. Sonra tarih olarak biçimleyin.
Sheets(sayfa).Range("b" & SonSat).PasteSpecial (xlPasteValues)
Sub SEC()
If ActiveSheet.Name = "3" Then 'SAYFA ADI 3 İSE
SonSat = Cells(Rows.Count, "B").End(3).Row + 1
Range("B" & SonSat).Select
SonSat = Cells(Rows.Count, "B").End(3).Row + 1
sec2 = "AM" & SonSat
Range("AM7:AO7").Select 'KOPYALANACAK VERİLERİ SEÇ
Selection.copy
Range("AM8:AO" & SonSat).Select
ActiveSheet.Paste
'----
Range("B7").Select
Range("AM7:AM" & SonSat).Select
Selection.copy
Range("D7").PasteSpecial (xlPasteValues)
Range("B7").Select
Range("AN7:AN" & SonSat).Select
Selection.copy
Range("G7").PasteSpecial (xlPasteValues)
Range("B7").Select
Range("AO7:AO" & SonSat).Select
Selection.copy
Range("J7").PasteSpecial (xlPasteValues)
Range("B7").Select
Else
End If
MsgBox "İşlem Tamamlandı"
End Sub
İnceleyiniz.
Seçili hücre aralığına Enter yaptırma sorunu
Arkadaşlar Merhaba, elimde şöyle kısa bir makro var. Makro "Personal.xlsb" içindeki modülde yer alıyor. Bu makro, A sütununda, belirttiğim hücre arağına "F2" ile hücre içine girip ardından "ENTER" yapıyor.Yalnız makro A sütununda "2500"üncü satıra geldiğinde çalışmayı durduruyor. Makroda...www.excel.web.tr