Hücredeki sayıyı bir artırma

kahramang1

Altın Üye
Katılım
21 Şubat 2007
Mesajlar
355
Excel Vers. ve Dili
Microsoft Ev ve Ofis 2016
Altın Üyelik Bitiş Tarihi
05-05-2025
Arkadaşlar merhaba. Benim ricam ekli tablonun "Giriş" bölümüne verileri girip, "Kaydet" butonuna bastığımda "B1" hücresindeki sayının bir artmasıdır. Mevcut makroya ilave edip bana gönderirseniz çok memnun olurum. Kolay gelsin.
 

Ekli dosyalar

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Kodları aşağıdaki şekilde değiştirip deneyin.
Kod:
Sub KAYDET()
'
' KAYDET Makro
'

'
    Dim adet As Long
    adet = WorksheetFunction.CountIf(Sheets("LİSTE").Range("C2:C65536"), "<>")
    Range("B1:B8").Select
    Selection.Copy
    Sheets("LİSTE").Select
    Application.Goto Reference:="R99999C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveCell.Offset(-1, -1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:A2").Select
    Sheets("giriş").Select
    ActiveCell.Offset(1, 0).Range("A1:A5").Select
    Selection.ClearContents
    ActiveCell.Offset(-1, 0).Range("A1").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range("B2").Select
    Range("B1") = adet + 1
End Sub
 

kahramang1

Altın Üye
Katılım
21 Şubat 2007
Mesajlar
355
Excel Vers. ve Dili
Microsoft Ev ve Ofis 2016
Altın Üyelik Bitiş Tarihi
05-05-2025
Kodları aşağıdaki şekilde değiştirip deneyin.
Kod:
Sub KAYDET()
'
' KAYDET Makro
'

'
    Dim adet As Long
    adet = WorksheetFunction.CountIf(Sheets("LİSTE").Range("C2:C65536"), "<>")
    Range("B1:B8").Select
    Selection.Copy
    Sheets("LİSTE").Select
    Application.Goto Reference:="R99999C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveCell.Offset(-1, -1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:A2").Select
    Sheets("giriş").Select
    ActiveCell.Offset(1, 0).Range("A1:A5").Select
    Selection.ClearContents
    ActiveCell.Offset(-1, 0).Range("A1").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range("B2").Select
    Range("B1") = adet + 1
End Sub
 

kahramang1

Altın Üye
Katılım
21 Şubat 2007
Mesajlar
355
Excel Vers. ve Dili
Microsoft Ev ve Ofis 2016
Altın Üyelik Bitiş Tarihi
05-05-2025
Bu makro B2 hücresini artırdı. Lakin isteğim tam olarak şudur. Örneğin şimdi b2 de 197 yazıyor. "Giriş" sayfasındaki değerlerl 197 dahil kopyalayıp, "Liste" sayfasındaki en son satıra yaması. Daha sonra "Giriş " sayfasına dönüp "B2" hücresini 198 yapmasıdır. Teşekkürler.
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Sizin kodlarınız zaten kayıt işlemini yapıyor. Sadece adedi bir artırmak kalıyor. Onu da Liste sayfasında C sütunundaki değerleri saydırıp bir artıtıyorum.
Kod:
Sub KAYDET()
'
' KAYDET Makro
'

'
'BURADA ADET İÇİN TANIMLAMA YAPILDI.
    Dim adet As Long
    
    Range("B1:B8").Select
    Selection.Copy
    Sheets("LİSTE").Select
    Application.Goto Reference:="R99999C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveCell.Offset(-1, -1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:A2").Select
    Sheets("giriş").Select
    ActiveCell.Offset(1, 0).Range("A1:A5").Select
    Selection.ClearContents
    ActiveCell.Offset(-1, 0).Range("A1").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Range("B2").Select
'AŞAĞIDAKİ 2 SATIR EKLENDİ.

'LİSTE SAYFASINDAKİ C2 DEN SONRAKİ DOLU HÜCRE SAYISI BULUNDU.
    adet = WorksheetFunction.CountIf(Sheets("LİSTE").Range("C2:C65536"), "<>")
'BULUNAN ADET SAYISI 1 ARTIRILARAK Giriş SAYFASI B1 HÜCRESİNE YAZIDIRILDI.
    Sheets("giriş").Range("B1") = adet + 1
End Sub
 

kahramang1

Altın Üye
Katılım
21 Şubat 2007
Mesajlar
355
Excel Vers. ve Dili
Microsoft Ev ve Ofis 2016
Altın Üyelik Bitiş Tarihi
05-05-2025
Maalesef bu da çözüm olmadı. Sizin yapmanız gereken "giriş" sayfasındaki B1 hücre değerini her kayıttan sonra bir artırmaktır. "liste" sayfası ile herhangi bir işleme gerek yok.
 

kahramang1

Altın Üye
Katılım
21 Şubat 2007
Mesajlar
355
Excel Vers. ve Dili
Microsoft Ev ve Ofis 2016
Altın Üyelik Bitiş Tarihi
05-05-2025
Merhaba arkadaşlar. Ekli dosyayı sorunsuz kullanıyordum. Sebebi nedir bilemiyorum ama bir şekilde bozuldu. "giriş" sayfasında B2 : B9 hücrelerine değerleri yazıp "kaydet" butonuna bastığımda verileri kopyalayıp "liste" sayfasındaki son satıra yazıp "giriş" sayfasındaki b2 hücresine gelip duruyor. Bu arada B1 hücresinin değerini de 1 artırıyordu. Lütfen makro kaydını inceleyip hatayı bulabilir misiniz. Kolay gelsin.
 

Ekli dosyalar

Üst