[Yardım]  Excel Çoklu Güncelleme

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

Excel Çoklu Güncelleme

İleti#1)  yildirima » 17 Tem 2019 14:51

Merhaba,
Aşağıda toplu bulmaya ilişkin bir makro yazdım. L sütunu boş olanları sadece bulacak aşağıdaki makro ile bunu yapıyorum. Ben bulunanların L sütununa veri girişi yaparak kaydedicem. Birden fazla kaydı aynı anda güncellemek için bir şey yazamadım. Bana bulduklarımı toplu bir şekilde güncelleme yapabileceğim bir makro yazmamda yardımcı olabilirmisiniz. (L sütununa girilecek değer her satır için farklı ve sabit bir değer değil)

Sub PlakaBul()
Dim s1 As Worksheet, s2 As Worksheet
Dim Bul As Range, satır As Long
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Bul - Değiştir")
Application.ScreenUpdating = False
For Each Bul In s1.Range("f2:f" & s1.Range("f65536").End(3).Row)
If Bul.Value = Range("f2") Then
satır = satır + 1
Bul.EntireRow.Copy
s2.Select
Cells(satır + 1, 1).PasteSpecial
End If
Next Bul
[a1].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True

Dim i As Long
Dim j As Long
i = Cells(Rows.Count, "L").End(3).Row
Application.ScreenUpdating = False
For i = i To 2 Step -1
If Cells(i, "L") > 0 Then Rows(i).Delete
Next i
End sub
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 35
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Excel Çoklu Güncelleme

İleti#2)  Ali ÖZ » 18 Tem 2019 10:17

Merhaba,
Örnek dosya ekleyerek dosya üzerinde yapılmasını istediklerinizi yazabilir misiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9814
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Excel Çoklu Güncelleme

İleti#3)  yildirima » 18 Tem 2019 13:16

Merhaba,

Cevap aşağıdaki gibi yaptım ama bu şekilde uzun oluyor bunu daha kısa yazabilirmiyiz. her satır için bir blok yazmam gerek. dosya ekleyemiyorum şuan.

Sub Değiştir()
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

Sheets("Sayfa2").Cells(i, "b").Value = Range("B2")
Sheets("Sayfa2").Cells(i, "d").Value = Range("D2")
Sheets("Sayfa2").Cells(i, "e").Value = Range("E2")
Sheets("Sayfa2").Cells(i, "g").Value = Range("G2")
Sheets("Sayfa2").Cells(i, "h").Value = Range("H2")
Sheets("Sayfa2").Cells(i, "ı").Value = Range("I2")
Sheets("Sayfa2").Cells(i, "j").Value = Range("J2")
Sheets("Sayfa2").Cells(i, "k").Value = Range("K2")
Sheets("Sayfa2").Cells(i, "l").Value = Range("L2")
Sheets("Sayfa2").Cells(i, "m").Value = Range("M2")

End If

If Range("C3") = Sheets("Sayfa2").Cells(i, 3).Value And Range("F3") = Sheets("Sayfa2").Cells(i, 6).Value Then

Sheets("Sayfa2").Cells(i, "b").Value = Range("B3")
Sheets("Sayfa2").Cells(i, "d").Value = Range("D3")
Sheets("Sayfa2").Cells(i, "e").Value = Range("E3")
Sheets("Sayfa2").Cells(i, "g").Value = Range("G3")
Sheets("Sayfa2").Cells(i, "h").Value = Range("H3")
Sheets("Sayfa2").Cells(i, "ı").Value = Range("I3")
Sheets("Sayfa2").Cells(i, "j").Value = Range("J3")
Sheets("Sayfa2").Cells(i, "k").Value = Range("K3")
Sheets("Sayfa2").Cells(i, "l").Value = Range("L3")
Sheets("Sayfa2").Cells(i, "m").Value = Range("M3")

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: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Excel Çoklu Güncelleme

İleti#4)  şahin » 20 Tem 2019 12:58

Ekte

Kitap1.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 635
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

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

Cevap: Excel Çoklu Güncelleme

İleti#5)  yildirima » 26 Tem 2019 16:06

Merhaba,

Ellerinize sağlık istediğim gibi oldu.

Bul makrosunuda düzenlememe yardımcı olurmusunuz. F2 ye yazdığım değere göre arama yapıyor ve bu değerden kaç tane varsa getiriyorum. sorunum =>

Dim s1 As Worksheet, s2 As Worksheet
Dim Bul As Range, satır As Long
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Bul - Değiştir")
Application.ScreenUpdating = False
For Each Bul In s1.Range("f3:f" & s1.Range("f65536").End(3).Row)
If Bul.Value = Range("f2") Then
satır = satır + 1
Bul.EntireRow.Copy
s2.Select
Cells(satır + 1, 1).PasteSpecial
End If
Next Bul
[a1].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True

"L" sütunu dolu olanları sil diyorum. aslında "L" sütunu dolu olanları hiç getirme olucak aşağıdaki şekilde yazınca sayfada satır silmeye yöneliyor ve butonlarımı siliyor.
Dim i As Long
Dim j As Long
i = Cells(Rows.Count, "L").End(3).Row
Application.ScreenUpdating = False
For i = i To 2 Step -1
If Cells(i, "L") > 0 Then Rows(i).Delete
Next i
End Sub
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 35
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Excel Çoklu Güncelleme

İleti#6)  yildirima » 31 Tem 2019 08:55

Merhaba,

Aşağıdaki gibi bir bul makrosu yazdım. F2 ye yazdığım değere göre arama yapıyor ve bu değerden kaç tane varsa getiriyorum. Buraya kadar sorunum yok.

Dim s1 As Worksheet, s2 As Worksheet
Dim Bul As Range, satır As Long
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Bul - Değiştir")
Application.ScreenUpdating = False
For Each Bul In s1.Range("f3:f" & s1.Range("f65536").End(3).Row)
If Bul.Value = Range("f2") Then
satır = satır + 1
Bul.EntireRow.Copy
s2.Select
Cells(satır + 1, 1).PasteSpecial
End If
Next Bul
[a1].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True

Sorunum => bulduğu satırlardan "L" sütunu dolu olanları sil diyorum. aslında "L" sütunu dolu olanları hiç getirme olacak aşağıdaki makronun tamamında veya sadece aşağıdaki alanda nasıl bir şey yapabiliriz.

Dim i As Long
Dim j As Long
i = Cells(Rows.Count, "L").End(3).Row
Application.ScreenUpdating = False
For i = i To 2 Step -1
If Cells(i, "L") > 0 Then Rows(i).Delete
Next i
End Sub
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 35
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel Çoklu Güncelleme

İleti#7)  Feyzullah » 31 Tem 2019 12:12

Tam anlamamış olabilirim. If Cells(i, "L") > 0 Then Rows(i).Delete kodunun yerini aşağıdaki kodu yazın.
Kod: Tümünü seç
If Cells(i"L") > 0 Then Cells(i"L")="" 
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Excel Çoklu Güncelleme

İleti#8)  yildirima » 01 Ağu 2019 11:28

merhaba Feyzullah bey

sizin yazdığınız kod bulunan sütunlarda L sütünü dolu olanları boşaltıyor. benim istediğim içeriğini boşaltması değil. L sütunu dolu ise bulmasın, şöyle söylim değeri arıyorum (bul makromla) değerleri değiştiriyorum/ güncelliyorum. L sütununa değer girdiğimde bu satırın işi bitiyor. bir daha arama yaptığımda bu işi bitenleri getirmesin istiyorum.

If Cells(i, "L") > 0 Then Rows(i).Delete

bu kod işimi görüyor. ama sorun şu ki butonların bir userform değil excel üzerinde ve satırların altında bu kod satır sildiği için bir kaç kereden sonra butonlarımıda siliyor.
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 35
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Excel Çoklu Güncelleme

İleti#9)  Feyzullah » 01 Ağu 2019 11:38

İçinde özel veri olmayacak şekilde dosyanı paylaşırmısın.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Excel Çoklu Güncelleme

İleti#10)  yildirima » 01 Ağu 2019 17:08

merhaba,

dosya ektedir. buton yukarı gidiyor dikkat :)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 35
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: Excel Çoklu Güncelleme

İleti#11)  Feyzullah » 01 Ağu 2019 20:15

Aşağıdaki yazmış olduğum yönergeleri uyguladığınızda buton silinmeyecek ve yukarı kaymayacaktır.

Sayfadaki YENİLE butonuna sağ tıklayın > Sağ click menüsünde "Denetimi Biçimlendir" tıklayın.
Açılan Denetimi Biçimlendir penceresinde menülerden > Özellikler sekmesine tıklayın. >
Nesne Konumlandırma seçeneklerinden > Hücre taşıma ve boyutlandırma seçin > Tamam tuşuna basın.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot] ve 0 misafir

Bumerang - Yazarkafe