sayfadaki tüm sayıların değerini 1 artırmak

[gencoglu27]

Merhaba arkadaşlar.
Elimdeki sayfada çok sayıda loto sayıları var ve ben buradaki sayı değerlerini 1 artırmak ve/veya 1 eksiltmek istiyorum..bunu nasıl başarırız?
örnek:
SÜTUNLAR A--B--C--D--E--F
SAYILAR 6 -10-18-24-36-45
1 20 25 33 41 49
10 11 15 18 40 42 48
...........................
..........................
Fakat eğer sayı=49 ise 1artığında 50 değil 1= olsun..
teşekkürler

 

[Mustafa MUTLU]

Dosya eklermisiniz..

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Arti_Eksi()
    Dim i As Long
    Dim j As Integer
    Dim e As Boolean
    
    e = Application.InputBox("1=Toplama, 0=Çıkartma", "İşlem Türü", 1, Type:=4)
    j = Cells(1, Columns.Count).End(1).Column + 1
    i = Cells(Rows.Count, "A").End(3).Row
    With Cells(1, j)
        If e = True Then
            .Value = 1
        Else
            .Value = -1
        End If
        .Copy
    End With
    With Range("A1:F" & i)
        .PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
            False, Transpose:=False
        .Replace What:=50, Replacement:=1, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        .Replace What:=0, Replacement:=49, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Application.CutCopyMode = False
        Cells(1, j).ClearContents
    End With
End Sub

 

[halit3]

Alternatif olarak kod

Sub calistir()
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim X As Range
For Each X In Range("a1:f" & sat) '[a1:d500]
If X.Value <> "" Then
If IsNumeric(X.Value) = True Then
If X.Value = 49 Then
X.Value = 1
Else
X.Value = X.Value + 1
End If
End If
End If
Next X
MsgBox "işlem tamam"
End Sub

 

[Necdet]

2 yanıt verilmiş ve Geri Bildirim yok,

Sonuç nedir, oldu mu olmadı mı? Bu başlığı inceleyen kişiler için yararlı olurdu.

Arkadaşımız sağolsun yanıtlardan sonra gelmiş ama bir yorumda bulunmamış.

 

[gencoglu27]

2 yanıt verilmiş ve Geri Bildirim yok,

Sonuç nedir, oldu mu olmadı mı? Bu başlığı inceleyen kişiler için yararlı olurdu.

Arkadaşımız sağolsun yanıtlardan sonra gelmiş ama bir yorumda bulunmamış.

Teşekkür ediyorum..Haklısınız.. geri bildirim yapmam gerekirdi..genelde yapmışımdır hep bazen aradan kaçıyor..