Düşeyara VBA kodu..

[macay]

Tüm üstadlara merhaba,

Ekte gönderdiğim tabloda Raporaylık sayfasının Pvttbl sayfasından VBA ile düşeyara fonksiyonunu kullanarak arama yapmasını ve raporaylık sayfasındaki yere getirmesine çalışıyorum..ama arada toplam olduğu için öncelikle c9:c20 aralığını sonrada c22:c46 aralığını yapmak istiyorum..bütün siteye baktım ama banimkine uyan bir kod bulamadım bulduysamda yapamadım... bana yardım edermisniz lütfen

Saygılarımla,

 

[Orion1]

Tüm üstadlara merhaba,

Ekte gönderdiğim tabloda Raporaylık sayfasının Pvttbl sayfasından VBA ile düşeyara fonksiyonunu kullanarak arama yapmasını ve raporaylık sayfasındaki yere getirmesine çalışıyorum..ama arada toplam olduğu için öncelikle c9:c20 aralığını sonrada c22:c46 aralığını yapmak istiyorum..bütün siteye baktım ama banimkine uyan bir kod bulamadım bulduysamda yapamadım... bana yardım edermisniz lütfen

Saygılarımla,

Düşeyara fonksiyonu değilde find komutu olsa nasıl olur.

 

[macay]

Olur Evren üstad neden olmasın..Ama ben bu fonksiyonu hiç kullanmadım... ne yaptığı ile ilgili bi r bilgim yok... sen olur diyosan oluyordur

 

[Orion1]

Dosyanız ektedir.

Sub bul()
Sheets("RAPORAYLIK").Select
Dim hcr As Range, k As Range
For Each hcr In Range("C9:C46")
    If hcr.Address(False, False) <> "C21" Then
        hcr.Offset(0, 1).ClearContents
        Set k = Sheets("Pvttbl").Range("A5:A65536").Find(hcr.Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            hcr.Offset(0, 1).Value = k.Offset(0, 1).Value
        End If
    End If
Next hcr
Set k = Nothing
MsgBox "&#304;&#351;lem Tamam"
    
End Sub

 

[macay]

Evren üstad kod çok güzel çalışıyor.. ama değer olmayınca 0 verdirmek mümkünmü bu kodlamada... ?

 

[Orion1]

Evren üstad kod çok güzel çalışıyor.. ama değer olmayınca 0 verdirmek mümkünmü bu kodlamada... ?

Sub bul()
Sheets("RAPORAYLIK").Select
Dim hcr As Range, k As Range
For Each hcr In Range("C9:C46")
    If hcr.Address(False, False) <> "C21" Then
        [B][COLOR="Red"]hcr.Offset(0, 1).Value = 0[/COLOR][/B]
        Set k = Sheets("Pvttbl").Range("A5:A65536").Find(hcr.Value, , xlValues, xlWhole)
        If Not k Is Nothing Then
            hcr.Offset(0, 1).Value = k.Offset(0, 1).Value
        End If
    End If
Next hcr
Set k = Nothing
MsgBox "İşlem Tamam"
    
End Sub

 

[macay]

Evren üstad.. bilgine sağlık... çok teşekkür ederim... istediğim tam manasıyla budur... Allah senden razı olsun.. İnşallah bizde birgün senin gibi kodlamayı öğrenip.. diğerlerine yardımcı oluruz.. Allaha emanet ol...

Saygılarımla,

 

[Orion1]

Evren üstad.. bilgine sağlık... çok teşekkür ederim... istediğim tam manasıyla budur... Allah senden razı olsun.. İnşallah bizde birgün senin gibi kodlamayı öğrenip.. diğerlerine yardımcı oluruz.. Allaha emanet ol...

Saygılarımla,

Rica ederim.
İyi çalışmalar.