Sabit sütundaki verileri diğer sutunlara kaydetme

[aliberberoglu1981]

arkadaşlar ekte de yazdığım gibi benim cari ve stok takip programı yapmaya çalışıyorum sabit hücrelere firma bilgisi fiyat ürün kg vb. bilgileri girip kaydet tuşuna bastığımda bunlara aşağıda tablodaki kendisine denk gelen boş satırdaki yere otomatik atmasını istiyorum yardımcı olurmusunuz. daha sonra tekrar temizlenmesini yeni giriş içi boş olmasını nasıl yaparız

 

[aliberberoglu1981]

arkadaşlar yardım yapacak yokmu

 

[ÖmerBey]

Merhaba,
Şu kodları deneyiniz.

Sub Kod()
kynk = Array("D3", "D4", "E4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15", "D16", "D17", "D18")
HdfSut = Array("C", "D", "E", "F", "H", "I", "J", "K", "M", "O", "P", "Q", "R", "S", "T", "U", "V")
Dim HdfSat As Long, a As Byte
HdfSat = Cells(Rows.Count, "C").End(3).Row + 1
For Each cb In ActiveSheet.OptionButtons
    If cb.Value = 1 Then
        Cells(HdfSat, "B").Value = cb.Caption
        Exit For
    End If
Next
For a = LBound(kynk) To UBound(kynk)
    Cells(HdfSat, HdfSut(a)).Value = Range(kynk(a)).Value
    Range(kynk(a)).Value = ""
Next
MsgBox "Giriş yapıldı."
End Sub

 

[aliberberoglu1981]

çok teşekkür ederim ömer bey çok güzel olmuş

 

[ÖmerBey]

Rica ederim, iyi çalışmalar diliyorum...