En son dolu satıra hücreyi yazdırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

En son dolu satıra hücreyi yazdırma

İleti#1)  nihatra » 08 Kas 2019 13:30

Kolay gelsin. Ekli dosyada en son dolu satıra hücreyi yazdırma nasıl olur.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 436
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: En son dolu satıra hücreyi yazdırma

İleti#2)  nihatra » 08 Kas 2019 22:27

aşağıdaki kodu a13:a19 arasına nasıl uyarlayabilirim.

Private Sub ComboBox1_Change()
A = ComboBox1.Text
son = Worksheets("Sayfa1").Range("a19").End(xlUp).Row
If son + 19 = 13 Then
Else
Range("A" & son + 1) = A
End If

End Sub
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 436
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

Cevap: En son dolu satıra hücreyi yazdırma

İleti#3)  şahin » 10 Kas 2019 09:21

Kod: Tümünü seç
Private Sub ComboBox1_Change()
A = Sayfa1.ComboBox1.Text
B = WorksheetFunction.VLookup(Sayfa1.ComboBox1.Text, Sayfa1.Range("J5:L" & Sayfa1.Range("J100").End(3).Row), 3, 0)
If Sayfa1.Range("A13") = "" Then
   Sayfa1.Range("A13") = A
   Sayfa1.Range("B13") = B
Else
    son = Sayfa1.Range("a19").End(xlUp).Row
    Sayfa1.Range("A" & son + 1) = A
    Sayfa1.Range("B" & son + 1) = B
End If
End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 825
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: En son dolu satıra hücreyi yazdırma

İleti#4)  nihatra » 10 Kas 2019 10:26

Teşekkür ederim Allah razı olsun
ancak hazırlık planlamayı yazıyor.ikinci bir seçim yaptığımda VLookup özelliği alınamıyor hatası veriyor.
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 436
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: En son dolu satıra hücreyi yazdırma

İleti#5)  nihatra » 10 Kas 2019 11:59

özür dilerim ben kopyalama hası yapmışım. kodlar çalışıyor.Allah razı osun hakkınızı helal edin
Kullanıcı avatarı
nihatra
Siteye Alışmış
 
Adı Soyadı:NİHAT ÇAKIR
Kayıt: 02 Şub 2012 21:13
Konum: MEMUR
Meslek: MEMUR
Yaş: 53
İleti: 436
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ESKİŞEHİR


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Mesut Topal, Yandex[Bot] ve 3 misafir

Bumerang - Yazarkafe