Listeye ekleme makrosu

[excel12312]

A1 hucresine degeri giriyorum ekle butanuna basinca degerleri D2 hucresinden baslayarak yazdiriyor alt alta. Takildigim konu yazdirmaya baslayacagim sutunu secebiliyorum ama satiri secemiyorum bu yuzden hep 2. satirdan basliyor yazdirmaya. Dosyayi paylasiyorum.

Tesekkurler.

 

[excel12312]

-Kullandıgım kod

Private Sub CommandButton1_Click()

Dim son_sat As Long
Dim ws1 As Worksheet

On Error Resume Next

Set ws1 = Worksheets("A")

With ws1
son_sat = .Cells(.Rows.Count, 4).End(xlUp).Offset(1, 0).Row

.Cells(son_sat, 4).Value = ws1.Range("A1").Value

'...
'...
'...

End With



End Sub

 

[Ömer BARAN]

Merhaba, isteğiniz tam anlaşılmıyor bence.
Birinci satırdan başlamasını istiyorsanız son_sat şeklinde başlayan satırdan sonra aşağıdaki satırı eklerseniz istediğiniz olur.
.

If ws1.Cells(1, 4) = "" Then son_sat = 1

 

[excel12312]

Teşekkürlerler cevabınız için..

Evet net açıklayamadım. 1. satırı örnek olarak söyledim. İstediğim A1 hücresine girdiğim değerin ekle butonuna basınca benim belirleyecegim bir hücreden başlarayak aşağıya doğru yazılması. Örneğin C5 hücresi.

 

[Ömer BARAN]

Kod'daki sütunu belirleyen kısım, aşağıdaki 4 sayıları (A dahil A'dan başlayarak kaçıncı sütun olduğu).
Mevcut duruma göre bu sütun 4'üncü sütun yani D sütunu oluyor.

.Cells(son_sat, [B][COLOR="Blue"]4[/COLOR][/B])
.Cells(.Rows.Count, [B][COLOR="Blue"]4[/COLOR][/B])

4 sayılarını 3 yaparsanız C sütunu olur.
Kaçıncı satırdan başlayacağını belirlemek için C5 istiyorsanız 4'leri 3 yaptıktan sonra
C4 hücresine bir başlık yazmak çözüm olabilir veya basit bir If ... Else...End If ile
kod'daki son_sat değişkeni koşula bağlanarak satır belirlenebilir.

 

[Ömer BARAN]

İsterseniz mevcut kod'u aşağıdakiyle değiştirin.
.

[FONT="Arial Narrow"]Private Sub CommandButton1_Click()
    son_sat = [B][COLOR="Blue"]5[/COLOR][/B]
    If [[B][COLOR="Red"]C[/COLOR][COLOR="blue"]5[/COLOR][/B]] <> "" Then son_sat = [[COLOR="red"][B]C[/B][/COLOR]65536].End(3).Row + 1
    Cells(son_sat, "[B][COLOR="red"]C[/COLOR][/B]") = [A1]
End Sub[/FONT]

 

[excel12312]

Evet dediğiniz gibi yaptım çalışıyor , merak ettiğim direkt bir adres hücre tanımlayamyor muyuz bu makroda örnek W8 gibi. Çünkü diyelim AJ10 hücresine yazdırılmasını istiyorum yada daha ilerdeki bir hücreye , o zaman her seferinde saymam gerekecek kaçıncı sütun bu hücre diye..
Direkt bir hücre adresi verebilieceğim şekilde nasıl düzenlerim bu makroyu ?

Teşekkürler.

 

[Ömer BARAN]

Önceki cevabımda değişiklik yaptım, sayfayı yenileyerek kontrol edebilirsiniz.
Ayrıca ilgili sütunda bir hücreye =SÜTUN() şeklinde formül yazarsanız sütun numarasını tespit edebilirsiniz.
.

 

[excel12312]

Teşekkürler yardımınız için iyi pazarlar.