Sayaca atanan rakam değerlerini tabloya aktarma???

[cozmic_power]

Akadaşlar excele yeni başladım ve malesef içinden çıkamadığım bir girdabın içindeyim.
Bir düğme oluşturdum ve bu düğmeye bir kayıt makrosu atadım. düğmeye tıkladığınızda yanındaki hücredeki rakamlar 1 den 4 e kada hızlı bir şekilde sıralanıyor.bu rakamların birer sayı karşılığı daha var.oda E6 hücresinde eğerli bir kodlamayla sayacın rakamlarına göre hızla geçmekte.Benim yapmaya çalıştığım şey E6 hücresindeki her bir rakama karşılık gelen sayı değerlerini bir tabloyla göstermek.

2.SORUNUM ise bir sütundaki gelişi güzel dagılmış rakamları tam alt alta yazdırmak.örnek:M sütunundaki rakamları n sütununa alt alta yazdırmak.Fakat m sütunudaki rakamlar sürekli değişken olabiliyor.

ÇOK AMA ÇOK ÖNEMLİ!!!!!!!!!!!!!!!!!!!

 

[cozmic_power]

2.SORUNUMU

Sub Sil()
Dim rForDelete As Range
Dim c As Range
With Sheets("Sayfa1")
For Each c In Range(.[m1], .[m65536].End(3))
If c.Value = "" Then
If Not rForDelete Is Nothing Then
Set rForDelete = Union(rForDelete, c)
Else
Set rForDelete = c
End If
End If
Next
If Not rForDelete Is Nothing Then rForDelete.Delete (xlUp)
End With
End Sub


makrosuyla hallettim ama hala birincisini çözemedim.Yardım diyorum hala..:yardim: