[Yardım]  Eğer(eğerhata(düseyara makro yardım

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

Eğer(eğerhata(düseyara makro yardım

İleti#1)  muzos80 » 12 Oca 2022 09:19

Merhaba İlk başta makro kaydet ile yaptım ama bu işlemi normal makroya çeviremedim

yazdığım ama çalışmadı
[b5] = WorksheetFunction.If(Range(b5) > 0, IfError(VLookup(Sheets("ARŞİV").Range("B:K"), 3, 0), "Kayıt Bulunamadı"), " ")

makro kaydetin çalışan
Range("N5:X6").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-12]>0,IFERROR(VLOOKUP(RC[-12],ARŞİV!R[2]C[-12]:R[29995]C[-3],2,0),""Kayıt Bulunamadı""),"" "")"
Kullanıcı avatarı
muzos80
Siteye Alışmış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 48
İleti: 191
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Eğer(eğerhata(düseyara makro yardım

İleti#2)  okutkan » 12 Oca 2022 10:16

Örnek bir sayfa yükleyerek yapmak istediğiniz işlemi açıklayın.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1519
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Eğer(eğerhata(düseyara makro yardım

İleti#3)  muzos80 » 12 Oca 2022 11:10

hocam aşağıdaki formülün makro karşığı lazım
=EĞER(B5>0;EĞERHATA(DÜŞEYARA(B5;ARŞİV!B7:K30000;4;0);"Kayıt Bulunamadı");" ")
Kullanıcı avatarı
muzos80
Siteye Alışmış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 48
İleti: 191
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Eğer(eğerhata(düseyara makro yardım

İleti#4)  yusuf43 » 12 Oca 2022 13:19

Düzenleme ektedir. Kodları senin formüle göre düzenledim eğer hücreler değiştirilirse formülün de ona göre değişmesi gerekir. Kolay gelsin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yusuf43
Siteye Alışmış
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 45
İleti: 295
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

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

Cevap: Eğer(eğerhata(düseyara makro yardım

İleti#5)  okutkan » 12 Oca 2022 15:20

Alternatif Kod:

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim sf1 As Worksheet, sf2 As Worksheet
Dim aranan As String, bulunan As String
Set sf1 = Sheets("LİSTE"): Set sf2 = Sheets("ARŞİV")
son = sf2.Cells(Rows.Count, "B").End(3).Row
aranan = sf1.Range("B5").Value

If aranan = Empty Then: MsgBox "Aranacak Değer Boş Bırakılamaz": Exit Sub
a = 0
For i = 7 To son
bulunan = sf2.Cells(i, "B").Value

    If aranan = bulunan Then
    sf1.Range("C5") = sf2.Cells(i, "E")
    a = 1
    Exit Sub
    End If
Next i

If a = 0 Then sf1.Range("C5") = "Kayıt Bulunamadı"
End Sub
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1519
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Cevap: Eğer(eğerhata(düseyara makro yardım

İleti#6)  muzos80 » 12 Oca 2022 21:53

yusuf43 yazdı:Düzenleme ektedir. Kodları senin formüle göre düzenledim eğer hücreler değiştirilirse formülün de ona göre değişmesi gerekir. Kolay gelsin.


Çok teşekkür ederim tarifinize göre yaptım

On Error Resume Next

If Sheets("FORM").Cells(5, 2) > 0 Then


' 5,SATIR SAYISI , 14 SÜTUN SAYISI
Sheets("FORM").Cells(5, 14) = Application.WorksheetFunction.VLookup(Sheets("FORM").Cells(5, 2), Sheets("ARŞİV").Range("B7:K30000"), 2, 0)

Sheets("FORM").Cells(5, 26) = Application.WorksheetFunction.VLookup(Sheets("FORM").Cells(5, 2), Sheets("ARŞİV").Range("B7:K30000"), 3, 0)

Sheets("FORM").Cells(8, 2) = Application.WorksheetFunction.VLookup(Sheets("FORM").Cells(5, 2), Sheets("ARŞİV").Range("B7:K30000"), 4, 0)

Sheets("FORM").Cells(8, 14) = Application.WorksheetFunction.VLookup(Sheets("FORM").Cells(5, 2), Sheets("ARŞİV").Range("B7:K30000"), 5, 0)

Sheets("FORM").Cells(8, 26) = Application.WorksheetFunction.VLookup(Sheets("FORM").Cells(5, 2), Sheets("ARŞİV").Range("B7:K30000"), 6, 0)

Sheets("FORM").Cells(11, 2) = Application.WorksheetFunction.VLookup(Sheets("FORM").Cells(5, 2), Sheets("ARŞİV").Range("B7:K30000"), 8, 0)

Sheets("FORM").Cells(14, 2) = Application.WorksheetFunction.VLookup(Sheets("FORM").Cells(5, 2), Sheets("ARŞİV").Range("B7:K30000"), 7, 0)

Else
MsgBox "Kayıt Bulunamadı"
End If
End Sub
Kullanıcı avatarı
muzos80
Siteye Alışmış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 48
İleti: 191
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Eğer(eğerhata(düseyara makro yardım

İleti#7)  muzos80 » 12 Oca 2022 22:05

Bir desteğe daha ihtiyacım var aşağıdaki kot ile sayfayı masa üstüme kayıt ediyorum ama xlsx olarak kayıt yapıyor ama özellikler makro içermeyen çalışma kitaplarına kaydedilemez uyarısı veriyor Evet dediğimde kayıt ediyor bu uyarıyı nasıl engellerim birde kayıt ettiği yerin linkini ARŞİV isimli sayfamın K sütununun son kayıdın altına linklemesini nasıl yapabilirim
Kullanıcı avatarı
muzos80
Siteye Alışmış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 48
İleti: 191
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Eğer(eğerhata(düseyara makro yardım

İleti#8)  muzos80 » 12 Oca 2022 22:06

kayıt için kullandığım makro kodu

Private Sub CommandButton1_Click()



ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\Users\MUSTAFA\Desktop\eeee\" & ThisWorkbook.ActiveSheet.Range("B5") & "." & "xlsx"
.Close
End With
MsgBox "İşlem tamam.", vbInformation
End Sub
Kullanıcı avatarı
muzos80
Siteye Alışmış
 
Kayıt: 10 Arl 2016 23:14
Meslek: TPM
Yaş: 48
İleti: 191
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe