[Yardım]  Satır başındaki hücrenin aranması değerinin ilk boş hücreye

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

Satır başındaki hücrenin aranması değerinin ilk boş hücreye

İleti#1)  alp07 » 12 Eyl 2018 15:25

Merhaba
sayfa1 deki satır başındaki a sutunundaki metni sayfa2 de aratarak bulduğu hücre hizasındaki son boş satıra kopyalamasını istiyorum.
Ekteki dosya üzerinden açıklamak gerekirse;
Sayfa1 de A sütununda ki hücrelerdeki metinleri(çay su soda vb. ) sayfa2 de ki aynı ismin karşısına sayfa1 de B1 sütunundaki tarih değerini de alarak miktar değerlerinden dolu olanları sayfa 2 de ilk boş hücreye(sayfa 1 deki suyun değerini sayfa 2 de suyun hizasındaki ilk boş hücreye tarih ile birlikte) yapıştırmak istiyorum.
yardımcı olursanız sevinirim.
herkese teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alp07
 
Kayıt: 13 Nis 2017 10:26
Meslek: blgisayar
Yaş: 37
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ISPARTA

Cevap: Satır başındaki hücrenin aranması değerinin ilk boş h

İleti#2)  elfinito » 13 Eyl 2018 00:16

Merhaba,

Eklediğiniz dosya özelinde aşağıdaki kodu deneyiniz. İyi çalışmalar.

Kod: Tümünü seç
Sub dagit()
tarih = Sheets("Sayfa1").Range("B1")
For i = 3 To 7
ok = 0
cins = Sheets("sayfa1").Cells(i, 1)
miktar = Sheets("sayfa1").Cells(i, 2)
If miktar > 0 Then
For y = 3 To 7
If cins = Sheets("sayfa2").Cells(y, 1) Then
r = Sheets("sayfa2").Cells(y, 1).Row
c = Sheets("sayfa2").Cells(y, 1).Column
Do Until ok = 1
If Len(Sheets("sayfa2").Cells(r, c + 1)) < 1 Then
Sheets("sayfa2").Cells(r, c + 1) = tarih
Sheets("sayfa2").Cells(r, c + 2) = miktar
ok = 1
End If
c = c + 2
Loop
End If
Next y
End If
Next i
End Sub
Kullanıcı avatarı
elfinito
Yeni Başlamış
 
Adı Soyadı:Erhan AKKAYA
Kayıt: 09 Ekm 2011 19:03
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Satır başındaki hücrenin aranması değerinin ilk boş h

İleti#3)  alp07 » 13 Eyl 2018 15:15

yardımın için çok teşekkür ederim
Kullanıcı avatarı
alp07
 
Kayıt: 13 Nis 2017 10:26
Meslek: blgisayar
Yaş: 37
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ISPARTA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 8 misafir

Bumerang - Yazarkafe