Tablolardaki sayıyı anahtarla değiştirme

[zerali]

Dört işlem tablolarındaki sayıları işleme göre bir anahtarla değiştirerek yeni sayılar oluşturabilir miyiz ? Şimdiden teşekkürler.

İndir TOPLAMA ÇIKARMA ÇARPMA BÖLME

Dosyayı indir TOPLAMA ÇIKARMA ÇARPMA BÖLME

dosya.co

 

[mdagistanli]

Anlamadım...

 

[zerali]

Her sayfada bir düğme olacak ve tıklandığında sayılar değişecek

 

[volki_112]

Her sayfada bir düğme olacak ve tıklandığında sayılar değişecek

Bu rakamlar değişecek dimi. Rakamlarda basamak sınırı var mı 1 ile 99 arasında mı olacak.

 

[Necdet]

Rakamlar değişecek, ne anlarsan anla artık.
Böyle soru mu olur? Neden ayrıntıya girmezsiniz, anlamıyorum.

 

[zerali]

Bu rakamlar değişecek dimi. Rakamlarda basamak sınırı var mı 1 ile 99 arasında mı olacak.

Evet değişecek Volki hocam

 

[Necdet]

Umarım doğru anlamışımdır.
Kodları bir modüle kopyalayıp deneyiniz.
Rakamlar büyükse kod içindeki 1000 rakamını kendinize göre uyarlayınız.

Sub RakamDegistir()

Dim c   As Range
Dim syf As Worksheet
Dim ara As String
Dim adr As String
Dim s1(5) As Long
Dim s2(5) As Long

Dim i   As Integer

For Each syf In Worksheets
    If syf.Name = "TOPLAMA" Then
        ara = "+"
    ElseIf syf.Name = "ÇIKARMA" Then
        ara = "-"
    ElseIf syf.Name = "ÇARPMA" Then
        ara = "X"
    ElseIf syf.Name = "BÖLME" Then
        ara = ":"
    Else
        ara = ""
    End If
    
    If Not ara = "" Then
        With syf.Cells
            Set c = .Find(ara, LookIn:=xlValues)
            If Not c Is Nothing Then
                adr = c.Address
                Do
                    For i = 0 To 5
                        s1(i) = Int((1000 + 1) * Rnd)
                        s2(i) = Int((1000 + 1) * Rnd)
                    Next i
                    c.Offset(0, 1).Resize(1, 6) = s1
                    c.Offset(1, 0).Resize(6, 1) = Application.WorksheetFunction.Transpose(s2)
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> adr
            End If
        End With
    End If
Next syf

MsgBox "İşlem Tamam...."

End Sub

 

[zerali]

Kod için teşekkürler Necdet hocam. Kodu ekledimkaydettim ama sayılar nasıl değişecek onu bilemedim. Önceden bir anahtar ekliyorduk tıkladığımızda sayılar değişiyordu. Şimdi ki excelde böyle bir yer bulamadım ve yapamadım Fazla da excel bilgim yok daha doğrusu .

 

[Necdet]

Dosyayı inceleyiniz.

 

[zerali]

Çok teşekkür ederim Necdet hocam emeğinize sağlık. Bölme sayfasında 2.satır 10.satır 18.satır ve 26.satırdaki sayıların soldaki A I ve Q sütünlarındaki sayılardan küçük olma ihtimali var mıdır? Teşekkür ederim.

 

[Hüseyin]

Çok teşekkür ederim Necdet hocam emeğinize sağlık. Bölme sayfasında 2.satır 10.satır 18.satır ve 26.satırdaki sayıların soldaki A I ve Q sütünlarındaki sayılardan küçük olma ihtimali var mıdır? Teşekkür ederim.

Bu detayı ilk sorunuzda belirtseniz olmaz mıydı?