Hocam çok güzel anlatmışsınız, teşekkürler. Izlerken aklıma sizin örnek program 2 videonuzdaki Bul butonuna yaptığınız işlem geldi. Yani Find komutu ile isme karşılık gelen satır numarası bulunsa ve o satıra ait 4uncu sütundaki değeri alıp, Ana Sayfadaki B2 hücresine yazsa, hiç düşey ara (vlookup) formülünü kullanmasak dedim. Olur galiba... Excel derya deniz :) tekrar teşekkürler anlatım için 🙏🤗
Hocam iyi güzel de düşeyara formülünü hücreye yazarak sahip olduğumuz dinamikliği kaybettik. Her input değeri değiştiğinde ben butona mı basmak zorundayım :)
Emeklerinize sağlık süper bir çalışma Bir sorum olacak benim. Bir userform yaptım personel bilgileri olan. Userformun da alt tarafında belli raporlar yapmak istiyorum, yaş ortalaması, erkek bayan sayısı, müdür, yardımc, satış danışmanı sayısı gibi. bir buton ekledim "rapor al" diye. Bu butona basınca altta textboxlara istediğim hesaplamalar yapılmış şekilde veriler gelmesini istiyorum. Bunun kodlama mantığını bulamadım. Butona girip formüllleri buraya yazıp tekstboxlarda verilerin gelmesini nasıl sağlarım? eğer yardımcı olabilirseniz çok sevinirim.
Merhaba. Emeğiniz için teşekkürler. Benim sorum birden fazla şarta göre düşey arama vba da nasıl yapabiliriz? Örneğin adı ahmet ve yaşı 32 olanların unvanı getir gibi. if else kullanmadan vba da nasıl yaparız?
Kolay gelsin bir sorum olacaktı. Örnek; textbox1' de 12 yazılı textbox2' de 13 yazılı ben bunları textbox3' te 12-13 olarak birleştirmek istiyorum yardım edebilirmisiniz
Merhaba, Dersler için Teşekkürler. Bir excel dosyası içerisindeki çalışma sayfalarından, bir buton yardımıyla şablon sayfaya nasıl veri özeti aktarabilirim
Ben teşekkür ederim. Maalesef bu sorduğunuz sorunun burada yanıtlayabileceğim kadar kısa bir cevabı yok. Ancak eğitimleri takip ettiğiniz sürece bu ve benzeri isteklerinizi kendiniz de yapabileceksiniz.
iyi gunler degarado bey ben işyeri için mg gr kg donuşumleri yapan ve bunların kg fiyatlarına göre hesap yapan bir program yapmak istiyorum nasıl yapabilirim
Sütun ve satır 1 1 1 1 2 0 1 0 1 1 1 2 2 1 1 1 2 2 2 2 1 Bu sütünda peş peşe 3 tane 1 olanı bulabilirmiyiz. 3 tane 1 den iki tane var. 4 tane 1 i saymasını istemiyorum. Benim yaptığım formülde 4 tane olanıda sayıyor yardımcı olurmusunuz hocam ya da excelden iyi anlayan biri?
Merhaba öncelikle emeğinize saglık Ben bu kodu for içinde yazdım fakat worksheetfunction sınıfının vlookup özelliği alınamıyor hatası alıyorum set etmekle alakalıymış nasıl yapabılırım Dim duseyara, sayfaadi1, sayfaadi2, sayfaadi3 As Variant For X = 2 To 5 sayfaadi1 = Worksheets("NAV-C.Consıstenscy").Range("a" & X).Value sayfaadi3 = Worksheets("NAV-MALZEMELER").Range("a2:h100").Value duseyara = Application.WorksheetFunction.VLookup(sayfaadi1, sayfaadi3, 8, 0) Worksheets("NAV-C.Consıstenscy").Range("b" & X).Value = duseyara On Error Resume Next Next X
Yasin bey, Bu hatanın birden çok sebebi olabiliyor maalesef. En sık rastlanılanları ise vba ve Excel arasında virgül ve noktalı virgüllerde farklılık olmasından kaynaklanır. Yani şöyle ki vlookup(5;A1:B15;2;0) gibi bir formülü vlookup(5,A1:B15,2,0) gibi yada tam tersi şekilde yazmalısınız. Bir diğeri sonuç bulunamadığında gerçekleşmesidir. Bunun için de on error resume next kod dizisini başa almalısınız. Bir diğer deneyebileceğiniz aradan WorksheetFunction kodunu kaldırarak denemelisiniz. Yani Application.VLookup gibi. Son olarak Set özelliği ise örneğin bir hücreye veya grubuna yada sayfalara değişken tanımlarken set özelliği kullanmalısınız. Örneğin dim ilkhucregrubu as range için Set ilkhucregrubu= myrange.ilkhucregrubu() tanımlamasını yapmalısınız.
@@Degarado Merhaba, Çözmem zor oldu ama şu şekilde hallettim; Dim sayfaadi1 As Worksheet, sayfaadi3 As Worksheet, Dim sonstun As Long, datasonstun As Long, Dim dataRange As Range, Set sayfaadi1 = ThisWorkbook.Worksheets("Consıstenscy") // bu kısımdaki Consıstenscy yazan yer exceldeki vlookup yapmak ıstedıgınız sayfa adı Set sayfaadi3 = ThisWorkbook.Worksheets("NAVMALZEMELER") // malzemelerde vlookup yaparken verıyı cekecegınız sayfa adı sonstun = sayfaadi1.Range("a" & Rows.Count).End(xlUp).Row datasonstun = sayfaadi3.Range("a" & Rows.Count).End(xlUp).Row Set dataRange = sayfaadi3.Range("a2:h" & datasonstun) // yani melzemeler sayfasında kac hucre dolu nun sayısal karsılıgı For X = 2 To sonstun On Error Resume Next sayfaadi1.Range("b" & X).Value = Application.WorksheetFunction.VLookup(sayfaadi1.Range("a" & X).Value, dataRange, 8, False) Next X End If // yukarda yazmaya B2 den itibaren son sutuna kadar A2 den eşleştirme yaparak getırdıgı verılerı yazar UMARIM OKUYAN ARKADAŞLARIN İŞİNE YARAR
![[UA] NAVI vs MOUZ | BO5 | IEM Rio 2024](http://i.ytimg.com/vi/CMBYk0cbGoA/mqdefault.jpg)
Size ne kadar teşekkür etsek az. Hakkınizi helal edin.
Estağfirullah. Benden yana helal hoş olsun. Esas sizler hakkınızı helal edin.
Hocam çok güzel anlatmışsınız, teşekkürler. Izlerken aklıma sizin örnek program 2 videonuzdaki Bul butonuna yaptığınız işlem geldi.
Yani Find komutu ile isme karşılık gelen satır numarası bulunsa ve o satıra ait 4uncu sütundaki değeri alıp, Ana Sayfadaki B2 hücresine yazsa, hiç düşey ara (vlookup) formülünü kullanmasak dedim. Olur galiba...
Excel derya deniz :) tekrar teşekkürler anlatım için 🙏🤗
Elinize sağlık çok anlaşılır bir eğitim videosu olmuş teşekkürler.
Ben teşekkür ederim Ayhan bey.
Hocam iyi güzel de düşeyara formülünü hücreye yazarak sahip olduğumuz dinamikliği kaybettik. Her input değeri değiştiğinde ben butona mı basmak zorundayım :)
Emeklerinize sağlık süper bir çalışma
Bir sorum olacak benim. Bir userform yaptım personel bilgileri olan. Userformun da alt tarafında belli raporlar yapmak istiyorum, yaş ortalaması, erkek bayan sayısı, müdür, yardımc, satış danışmanı sayısı gibi. bir buton ekledim "rapor al" diye. Bu butona basınca altta textboxlara istediğim hesaplamalar yapılmış şekilde veriler gelmesini istiyorum. Bunun kodlama mantığını bulamadım. Butona girip formüllleri buraya yazıp tekstboxlarda verilerin gelmesini nasıl sağlarım? eğer yardımcı olabilirseniz çok sevinirim.
Merhaba. Emeğiniz için teşekkürler. Benim sorum birden fazla şarta göre düşey arama vba da nasıl yapabiliriz? Örneğin adı ahmet ve yaşı 32 olanların unvanı getir gibi. if else kullanmadan vba da nasıl yaparız?
Kolay gelsin bir sorum olacaktı. Örnek; textbox1' de 12 yazılı textbox2' de 13 yazılı ben bunları textbox3' te 12-13 olarak birleştirmek istiyorum yardım edebilirmisiniz
Merhaba, Dersler için Teşekkürler.
Bir excel dosyası içerisindeki çalışma sayfalarından, bir buton yardımıyla şablon sayfaya nasıl veri özeti aktarabilirim
Ben teşekkür ederim. Maalesef bu sorduğunuz sorunun burada yanıtlayabileceğim kadar kısa bir cevabı yok. Ancak eğitimleri takip ettiğiniz sürece bu ve benzeri isteklerinizi kendiniz de yapabileceksiniz.
@@Degarado Çok Teşekkürler. Çaba harcayacağım.
iyi gunler degarado bey ben işyeri için mg gr kg donuşumleri yapan ve bunların kg fiyatlarına göre hesap yapan bir program yapmak istiyorum nasıl yapabilirim
Sütun ve satır
1
1
1
1
2
0
1
0
1
1
1
2
2
1
1
1
2
2
2
2
1
Bu sütünda peş peşe 3 tane 1 olanı bulabilirmiyiz. 3 tane 1 den iki tane var. 4 tane 1 i saymasını istemiyorum. Benim yaptığım formülde 4 tane olanıda sayıyor yardımcı olurmusunuz hocam ya da excelden iyi anlayan biri?
Teşekkürler
Merhaba öncelikle emeğinize saglık
Ben bu kodu for içinde yazdım fakat worksheetfunction sınıfının vlookup özelliği alınamıyor hatası alıyorum set etmekle alakalıymış nasıl yapabılırım
Dim duseyara, sayfaadi1, sayfaadi2, sayfaadi3 As Variant
For X = 2 To 5
sayfaadi1 = Worksheets("NAV-C.Consıstenscy").Range("a" & X).Value
sayfaadi3 = Worksheets("NAV-MALZEMELER").Range("a2:h100").Value
duseyara = Application.WorksheetFunction.VLookup(sayfaadi1, sayfaadi3, 8, 0)
Worksheets("NAV-C.Consıstenscy").Range("b" & X).Value = duseyara
On Error Resume Next
Next X
Yasin bey, Bu hatanın birden çok sebebi olabiliyor maalesef. En sık rastlanılanları ise vba ve Excel arasında virgül ve noktalı virgüllerde farklılık olmasından kaynaklanır. Yani şöyle ki vlookup(5;A1:B15;2;0) gibi bir formülü vlookup(5,A1:B15,2,0) gibi yada tam tersi şekilde yazmalısınız. Bir diğeri sonuç bulunamadığında gerçekleşmesidir. Bunun için de on error resume next kod dizisini başa almalısınız. Bir diğer deneyebileceğiniz aradan WorksheetFunction kodunu kaldırarak denemelisiniz. Yani Application.VLookup gibi. Son olarak Set özelliği ise örneğin bir hücreye veya grubuna yada sayfalara değişken tanımlarken set özelliği kullanmalısınız. Örneğin dim ilkhucregrubu as range için Set ilkhucregrubu= myrange.ilkhucregrubu() tanımlamasını yapmalısınız.
@@Degarado Merhaba,
Çözmem zor oldu ama şu şekilde hallettim;
Dim sayfaadi1 As Worksheet, sayfaadi3 As Worksheet,
Dim sonstun As Long, datasonstun As Long,
Dim dataRange As Range,
Set sayfaadi1 = ThisWorkbook.Worksheets("Consıstenscy")
// bu kısımdaki Consıstenscy yazan yer exceldeki vlookup yapmak ıstedıgınız sayfa adı
Set sayfaadi3 = ThisWorkbook.Worksheets("NAVMALZEMELER") // malzemelerde vlookup yaparken verıyı cekecegınız sayfa adı
sonstun = sayfaadi1.Range("a" & Rows.Count).End(xlUp).Row
datasonstun = sayfaadi3.Range("a" & Rows.Count).End(xlUp).Row
Set dataRange = sayfaadi3.Range("a2:h" & datasonstun) // yani melzemeler sayfasında kac hucre dolu nun sayısal karsılıgı
For X = 2 To sonstun
On Error Resume Next
sayfaadi1.Range("b" & X).Value = Application.WorksheetFunction.VLookup(sayfaadi1.Range("a" & X).Value, dataRange, 8, False)
Next X
End If
// yukarda yazmaya B2 den itibaren son sutuna kadar A2 den eşleştirme yaparak getırdıgı verılerı yazar
UMARIM OKUYAN ARKADAŞLARIN İŞİNE YARAR
Emeğinize sağlık hocam.
Bunu bir döngüye sokup listede her isim olarak yapabilir miyiz.
Şimdiden teşekkür ederim.
@mucelen