Hücredeki sayıyı bir artırma

[kahramang1]

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.

 

[askm]

Kodları aşağıdaki şekilde değiştirip deneyin.

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]

Kodları aşağıdaki şekilde değiştirip deneyin.

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]

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]

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.

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]

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]

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.