Sayıya göre sütuna metin yada sayı yazma

[sariserhan]

Merhabalar girilen nöbetçi sayısını tabloda sütunlara yazmak mümkün mü? örnek bir dosya ekledim umarım anlatabilmişimdir derdimi

 

[Necdet]

Merhaba,

C2

=EĞER(SÜTUN(A1)>$B$11;"";"N " & SÜTUN(A1))

C2 hücresini sağa doğru istediğiniz kadar kopyalayınız.

 

[sariserhan]

çok teşekkürler sağolun

 

[sariserhan]

bir şey daha sormak istiyorum örneğin 5 adet N oldu tabloda diğer boş kalan sütun ve satırları gizlemenin bir yolu var mı? kaç adet N varsa tabloda o kadar sütun olsun istiyorum

 

[Necdet]

bir şey daha sormak istiyorum örneğin 5 adet N oldu tabloda diğer boş kalan sütun ve satırları gizlemenin bir yolu var mı? kaç adet N varsa tabloda o kadar sütun olsun istiyorum

Bu isteğiniz ancak Makro ile olur.

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı.
Not : Numaralandırmayı da kod içine ekledim.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B11]) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    
    Dim i As Integer
    
    Application.ScreenUpdating = False
    Cells.EntireColumn.Hidden = False
    For i = 1 To Target.Value
        Cells(2, i + 2) = "N " & i
    Next i
    Range(Cells(1, Target.Value + 3), Cells(2, Columns.Count)).EntireColumn.Hidden = True
    Application.ScreenUpdating = True
End Sub