MAKROLAR YANLIS YAZIYOR

[dilekgüç]

MAKROLAR DOÐRU HUCRELERE YAZMIYOR
E/E I / I M /M DOÐRU HÜÇRELERE YAZIYOR

F/H G/N H/F J/K K/G L/J YANLIÞ HÜNRELERE YAZIYOR MAKROLARI DÜZELTE BİLEÇEK ARKADAÞ ARIYORUM İLGİLENEN ARKADAÞLARA ÞİMDİDEN TEÞEKKÜRLER
HAYIRLI RAMAZANLAR

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:2af6accc69]Private Sub CommandButton1_Click()
Range("a2").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A3").Value = "" Then
Range("A3").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Textbox kutularındaki verileri hücrelere yazdırır.
For a = 1 To 12
ActiveCell.Offset(0, a).Value = Controls("TextBox" & a)
Next
MsgBox "Kayıt Tamam.", , "Kayıt"
CommandButton2_Click
End Sub[/vb:1:2af6accc69]

 

[dilekgüç]

DOGRU HÜCRELERE YAZIYOR AMA BOÞ ALANLAR OLDUGU ZAMAN YANLIÞ HUÇRELERE YAZIYOR
B+C+D+ DEVAMLI YAZILACAK
AMA E+H+K+HÜCRELERE YAZDIGIM ZAMAN E+F+G HÜÇRELERİNE YAZIYOR
DİGER HÜÇRELER BOÞ KALABİLİR ÇÜNKÜ SORNADAK TEKRAR O HÜÇRELERE GİRDİ YAPILA BİLİR İYİ AKSAMLAR