Düşeyara

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

Düşeyara

İleti#1)  Robbiekeane » 20 Kas 2020 08:34

Merhaba,
Düşeyara ile ilgili bir sorunum var. Ekli dosyamda da görüldüğü üzere B sütunundaki değerleri H sütununda aratıyorum ve bulunan değerleri C, D ve E sütunlarına yazdırıyorum. Buraya kadar sorun yok fakat B sütunundaki değerler H sütununda yok ise B sütunundaki bu verilerin karşısındaki yani C,D ve E sütunundaki veriler siliniyor. Bunların silinmesini nasıl önlerim ? Yardımlarınızı rica ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Robbiekeane
 
Kayıt: 07 Tem 2018 10:51
Meslek: İnşaat Mühendisi
Yaş: 17
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / Muratpaşa

Cevap: Düşeyara

İleti#2)  Justmag » 20 Kas 2020 09:30

Bu dosyada düşeyara ile ilgili bir formül yok,biraz daha açık anlatabilir misiniz?
Kullanıcı avatarı
Justmag
Siteye Alışmış
 
Kayıt: 16 Nis 2020 15:03
Meslek: Diğer
Yaş: 34
İleti: 149
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Diğer

Cevap: Düşeyara

İleti#3)  Robbiekeane » 20 Kas 2020 10:20

Kusura bakmayın o kısmı atlamışım. Formül olarak değil kodlarla yapmak istiyorum. Buton ekledim. Butona basınca B sütunundaki 15, 19 ve 25 değerleri H sütununda olmadığı için 15, 19 ve 25'in C,D ve E sütunlarındaki değerleri siliniyor. Ama ben silinmesini istemiyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Robbiekeane
 
Kayıt: 07 Tem 2018 10:51
Meslek: İnşaat Mühendisi
Yaş: 17
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / Muratpaşa

Cevap: Düşeyara

İleti#4)  veyselozkan » 21 Kas 2020 12:41

Robbiekeane yazdı:Merhaba,
Düşeyara ile ilgili bir sorunum var. Ekli dosyamda da görüldüğü üzere B sütunundaki değerleri H sütununda aratıyorum ve bulunan değerleri C, D ve E sütunlarına yazdırıyorum. Buraya kadar sorun yok fakat B sütunundaki değerler H sütununda yok ise B sütunundaki bu verilerin karşısındaki yani C,D ve E sütunundaki veriler siliniyor. Bunların silinmesini nasıl önlerim ? Yardımlarınızı rica ederim.



Kodlarınızı bu şekilde değiştirebilirsiniz.

msgbox yerine istediğinizi yapabilir veya boş bırakabilirsiniz. işlem yapmayacaktır.


Kod: Tümünü seç

Sub deneme()
n = Sayfa1.Cells(3, 2)
On Error Resume Next
ReDim hNokta(d) As Variant
ReDim X(d), Y(d), Z(d) As Variant
If hNokta(d) = Sayfa1.Cells(d + 5, 2).Value Then
For d = 1 To n
X(d) = Application.WorksheetFunction.VLookup(hNokta(d), Worksheets("Sayfa1").Range("H6:K10"), 2, 0)
Y(d) = Application.WorksheetFunction.VLookup(hNokta(d), Worksheets("Sayfa1").Range("H6:K10"), 3, 0)
Z(d) = Application.WorksheetFunction.VLookup(hNokta(d), Worksheets("Sayfa1").Range("H6:K10"), 4, 0)
Sayfa1.Cells(d + 5, 3).Value = X(d)
Sayfa1.Cells(d + 5, 4).Value = Y(d)
Sayfa1.Cells(d + 5, 5).Value = Z(d)
Next d
Else
MsgBox ("boş")
End If
End Sub

Kullanıcı avatarı
veyselozkan
 
Kayıt: 02 Haz 2020 10:18
Meslek: Cost Controller
Yaş: 34
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yalova

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

Cevap: Düşeyara

İleti#5)  Robbiekeane » 21 Kas 2020 13:45

Kodları denedim ama bu sefer de değişmesi gerekenler değişmiyor.
Kullanıcı avatarı
Robbiekeane
 
Kayıt: 07 Tem 2018 10:51
Meslek: İnşaat Mühendisi
Yaş: 17
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / Muratpaşa

Cevap: Düşeyara

İleti#6)  Robbiekeane » 24 Kas 2020 08:25

Kodları bu şekilde düzelterek sorunu çözdüm. Herkese iyi çalışmalar

Kod: Tümünü seç
Sub deneme()

n = Sayfa1.Cells(3, 2)

On Error Resume Next

For d = 1 To n

If Cells(d + 5, "b") <> "" Then

Cells(d + 5, "c") = Application.WorksheetFunction.VLookup(Cells(d + 5, "b"), Worksheets("Sayfa1").Range("H6:K10"), 2, 0)
Cells(d + 5, "d") = Application.WorksheetFunction.VLookup(Cells(d + 5, "b"), Worksheets("Sayfa1").Range("H6:K10"), 3, 0)
Cells(d + 5, "e") = Application.WorksheetFunction.VLookup(Cells(d + 5, "b"), Worksheets("Sayfa1").Range("H6:K10"), 4, 0)

End If
Next d

End Sub
Kullanıcı avatarı
Robbiekeane
 
Kayıt: 07 Tem 2018 10:51
Meslek: İnşaat Mühendisi
Yaş: 17
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / Muratpaşa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe