Excel Değiştir Makrosu Yardım

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

Excel Değiştir Makrosu Yardım

İleti#1)  yildirima » 10 Tem 2019 14:01

Merhaba Arkadaşlar,

Excelde Bul makrosu yazdım. düzgün bir şekilde çalışıyor. Sorunum bulduğum satırda güncelleme yapmak istiyorum. Bul makrosu aşağıdaki şekilde, M sutununda bitiyor. Benim istediğim N sutununundaki veriyi getirmesin. Aşağıda bunu yaptım tamam. ama ben güncelle makrosunda N sutununa yazdığımı bulunan satırın son satırına ekleyerek güncellesin. Buna göre bana güncelle makrosu yazımımda yardımlarınız bekliyorum.

Sub Bul()
If Range("C2") = "" Then MsgBox "Tarih Girilmemiş": Exit Sub
If Range("F2") = "" Then MsgBox "Plaka Girilmemiş": Exit Sub
For i = 1 To Sheets("Sayfa2").Range("f65536").End(3).Row
If Range("C2") = Sheets("Sayfa2").Cells(i, 3).Value And Range("F2") = Sheets("Sayfa2").Cells(i, 6).Value Then
Range("B2") = Sheets("Sayfa2").Cells(i, "b")
Range("D2") = Sheets("Sayfa2").Cells(i, "d")
Range("E2") = Sheets("Sayfa2").Cells(i, "e")
Range("G2") = Sheets("Sayfa2").Cells(i, "g")
Range("H2") = Sheets("Sayfa2").Cells(i, "h")
Range("I2") = Sheets("Sayfa2").Cells(i, "ı")
Range("J2") = Sheets("Sayfa2").Cells(i, "j")
Range("K2") = Sheets("Sayfa2").Cells(i, "k")
Range("L2") = Sheets("Sayfa2").Cells(i, "l")
Range("M2") = Sheets("Sayfa2").Cells(i, "m")
End If
Next i
End Sub
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 35
İleti: 18
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Excel Değiştir Makrosu Yardım

İleti#2)  yildirima » 10 Tem 2019 16:08

Düzeltme

Merhaba Arkadaşlar,

Excelde Bul makrosu yazdım. düzgün bir şekilde çalışıyor. Sorunum bulduğum satırda güncelleme yapmak istiyorum. Bul makrosu aşağıdaki şekilde, M sutununda bitiyor. Benim istediğim N sutununundaki veriyi getirmesin. Aşağıda bunu yaptım tamam. ama ben güncelle makrosunda N sutununa yazdığımı bulunan satırın son sutununa ekleyerek güncellesin (yani N sutunu dolu ise O sutununa yazsın) . Buna göre bana güncelle makrosu yazımımda yardımlarınız bekliyorum.

Sub Bul()
If Range("C2") = "" Then MsgBox "Tarih Girilmemiş": Exit Sub
If Range("F2") = "" Then MsgBox "Plaka Girilmemiş": Exit Sub
For i = 1 To Sheets("Sayfa2").Range("f65536").End(3).Row
If Range("C2") = Sheets("Sayfa2").Cells(i, 3).Value And Range("F2") = Sheets("Sayfa2").Cells(i, 6).Value Then
Range("B2") = Sheets("Sayfa2").Cells(i, "b")
Range("D2") = Sheets("Sayfa2").Cells(i, "d")
Range("E2") = Sheets("Sayfa2").Cells(i, "e")
Range("G2") = Sheets("Sayfa2").Cells(i, "g")
Range("H2") = Sheets("Sayfa2").Cells(i, "h")
Range("I2") = Sheets("Sayfa2").Cells(i, "ı")
Range("J2") = Sheets("Sayfa2").Cells(i, "j")
Range("K2") = Sheets("Sayfa2").Cells(i, "k")
Range("L2") = Sheets("Sayfa2").Cells(i, "l")
Range("M2") = Sheets("Sayfa2").Cells(i, "m")
End If
Next i
End Sub
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 35
İleti: 18
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe