Olasılık tablosu

[y.t.g]

8 motorun Açık ve kapalı olma durumlarını excelde otomatik olarak tablo oluşturmak istiyorum örnek resimde vardır. bunun kolay yolu var mı yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Sorunuz pek açık gibi gelmedi bana.

 

[y.t.g]

Şim benim 8 tane motorum var bunların açık ve kapalı durumlarında çektikleri güçleri manuel olarak gireceğim. Ama açık kapalı olma durumlarını elle yapmam hem kafa karıştırıyor hemde ugraştırıyor. 8 motor Açık ve kapalı olmalarının otomatik olarak excele sutunlarına print etmem gerekiyor.

Her olasılığı otomatik olarak dolduracak bir formül veya uygulama varmı

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

C3:J14 alanında boş hücre varsa hepsine otomatik olarak x değerini ekler.
Bu işlem sayfa aktif olduğunda çalışır.

Yine bu alandaki herhangi bir hücrenin değeri x ise V yapar, V ise x yapar.

Private Sub Worksheet_Activate()

    With Range("C3:J14").SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "x"
        .Font.Name = "Calibri"
    End With
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [C3:J14]) Is Nothing Then Exit Sub
    
    If Selection.Count > 1 Then Exit Sub
    
    If Target.Value = "x" Then
        With Target
            .Value = "ü"
            .Font.Name = "Wingdings"
        End With
    Else
        With Target
            .Value = "x"
            .Font.Name = "Calibri"
        End With
    End If
    
End Sub