Çözüldü Yazılan numaraya ait satırdaki ilk boş hücreye veri eklemek.

Merhaba, foruma hoşgeldiniz Sayın @çağdaşözyurt .

Bunca yıllık Ms Excel kullanıcısıyım. OLMAZ dememeyi öğrendim.

İsterseniz, cevabımın altındaki İMZA bölümünü dikkatlice okuyarak, orada belirttiğim özelliklerde bir örnek belge ekleyin.
Örnek dosya olursa; mutlaka bir çözüm önerisi alırsınız.

.

Merhabalar. Dosyayı ekliyorum. Umarım derdimi anlatmaya yetecek şekilde hazırlamışımdır.

Dosyanın gerçekten istediğim ama daha karmaşık olan halini "ASIL" adında 2. sayfa olarak ekleyip yeniden yüklüyorum. Olursa 2. sayfadaki olmazsa "BASİT" adlı 1. sayfadaki şekliyle değerlendirirseniz sevinirim. Teşekkürler şimdiden.

Dosya.

Önce eklediğiniz son belgeye göre çözümü vereyim.
İşlem kodlarını; alt taraftan sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçerek görebilirsiniz.

Diğer belgeyi de gördüm onunla ilgili örneği de birazdan iletirim.

.

Selamlar,

@Ömer BARAN ın müsaadeleriyle.....

Acemi işi makroyla çözüm örneği.. Yarım formül + yarım makro
(Hazırlamışken göndermek istedim..)
Not : ilk dokumanınıza göre hazırlandı. İkinci dokumana sonradan bakabildim...

Ekli dosyayı görüntüle 7235

1. bölüm çözüldü. Her iki çözüm de basit sayfam için çözüm getirdi teşekkürler. Umarım 2. karmaşık sayfama da çözüm buluruz.

Her iki işlemin de uygulandığı belge ekte.

İyi çalışmalar dilerim.

.

Çok harika olmuş ellerinize sağlık.

Yalnız bir ufak sorunum var. Bendeki tablo başka yerlerden formülle veri çekiyor ve ben düzenlemeye çalıştım ama olmadı. Dosyayı ekliyorum. Size zahmet bu dosyadaki hücre değerlerine göre düzenleyebilirseniz çok minnettar kalırım. Dosya içerisinde açıklama balonu yazdım. Bir de açınca iki sayfa çıkıyor ben sadece 2. sayfayı kopyalayıp yapıştırıp düzenledim acaba etkisi olur mu?Teşekkürler.

Mevcut kodları aşağıdaki gibi değiştirin.
ASIL isimli sayfadaki işlemlerin Sayfa1 isimli sayfadaki işlem ve verilerle bir ilişkisi yok. Sayfa1'i tamamen silebilirsiniz.


.

Çözüldü. Tam sorduğum gibi olmuş ellerinize emeğinize sağlık.

Hocam bir şey sormak istiyorum:


Sub AKTAR_XD_BRN()

Dim msj1 As String, msj2 As String, msj3 As String, deg As String
Dim sat As Long, sut As Long

msj1 = "B1 ve D1 hücreleri boşken işlem yapılamaz!"
msj2 = "B1'e yazılan değer A sütununda olmalıdır!"
msj3 = " numaralı kişiye ait satır doldu!"

If [B1] = "" Or [D1] = "" Then
MsgBox msj1, vbCritical, "::.. Ömer BARAN ..::": Exit Sub
ElseIf WorksheetFunction.CountIf([A:A], [B1]) = 0 Then
MsgBox msj2, vbCritical, "::.. Ömer BARAN ..::": Exit Sub
Else
sat = WorksheetFunction.Match([B1], [A:A], 0)
sut = Cells(sat, Columns.Count).End(xlToLeft).Column + 1
If sut > 20 Then
MsgBox [B1] & msj3, vbCritical, "::..Ömer BARAN ..::": [B1].ClearContents: Exit Sub
End If
End If

Cells(sat, sut) = [D1]

End Sub

Bu kodu başka bir excel sayfasına yapıştırınca "B1 ve D1 hücreleri boşken işlem yapılamaz!" uyarısı geliyor oysa ikisi de dolu. Acaba nerede hata yapıyorum.

Tamam hocam halloldu. Teşekkürler.