Bazı bilgileri başka bir sheette istenilen yere getirmek.

[sakoz]

Sevgili üstadlar merhaba ,

Benim bir konuda yardıma ihtiyacım var.Ekli dosyada pivot ve data sheetleri var.Burada pivot sheetinde E ve F sütunlarında sürücü ve plaka bilgileri var.A sütununda da 1,2,3....100 şeklinde sayılar var.Şimdi benim yapmak istediğim sürücü ve plaka kısmını DATA sheetinde peron yazan sütundaki ilk sayıya karşılık H sütununa yazdırmak...Dosyada Data kısmında olması gerektiği şekilde 2-3 örnek yazdım.

Bu konuda yardımcı olabilirseniz çok mutlu olurum.Şimdiden tşk. ederim...

İyi çalışmalar...

 

[Orion1]

Merhaba.
PIVOT sayfasındaki numara bölgelerine numaraları giriniz.Ben ilk 3 - 4 tane girdim.
Dosyanız ekte.
Dosya güncellendi.

Sub aktar()
Dim i As Long
Sheets("PIVOT").Select
Sheets("DATA").Range("H2:I65536").ClearContents
For i = 2 To Cells(65536, "E").End(xlUp).Row
If Cells(i, "E").Value <> "" Then
    Set c = Sheets("DATA").Range("A:A").Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
        For j = c.Row To Sheets("DATA").Cells(65536, "A").End(xlUp).Row
            If Sheets("DATA").Cells(j, "B").Value = Cells(i, "B").Value _
            And Sheets("DATA").Cells(j, "C").Value = Cells(i, "C").Value Then
                Sheets("DATA").Cells(j, "H").Value = Cells(i, "E").Value
                Sheets("DATA").Cells(j, "I").Value = Cells(i, "F").Value
                GoTo atla
            End If
        Next j
atla:
    End If
End If
Next i
MsgBox "A K T A R M A     T A M A M L A N D I..!!", vbOKOnly, Application.UserName
End Sub

 

[sakoz]

Sevgili Sezar

Öncelikle çok ilgin ve alakan icin cok tşk. ederim.Sadece bir problem var.Pivot sheetinde bazı sayılarda 2 sürücü ve plaka var. onları tek olarak yazıyor.Mesela benim gönderdiğim dosyada 16 'da 2 sürücü ve plaka var.Makroyu çalıştırınca data sheetinde ilgili yere tek sürücü ve plaka yazıyor.
Bunu nasıl düzeltebiliriz ?

Şimdiden tşk. dostum Saol....

 

[Orion1]

Dosyayı güncelledim.
Önceki mesajımdan indirip deneyebilirsiniz.

 

[sakoz]

Çok ama Çok teşekkür ederim Sezar...
Ellerin dert klavyen zeval görmesin...Saol Varol...

 

[Orion1]

Çok ama Çok teşekkür ederim Sezar...
Ellerin dert klavyen zeval görmesin...Saol Varol...

Rica ederim.
Sizde sağolun.
İyi çalışmalar.

 

[sakoz]

Sezar
affınıza sığınarak birsey daha sormak istiyorum.Ben bu makroyu eklenti yapmak istiyorum.Bunu nasıl yapıcaz...Tşk.

 

[Orion1]

Farkılı Kaydet'ten
Microsoft ofis eklentisi(*.xla) olarak kaydedin.
Otomatik olarak addins klasörüne kendisi kaydedecektir.
Araçlar ==> eklentiler ==> Gözat'tan tamam deyin vecheckbox'ı işaretleyin eklenti olarak kaydedilecektir.

 

[sakoz]

Dediginiz gibi yaptım fakat yeni bir excel sayfası açtığımda makro kısmı boş geliyor.

 

[Orion1]

Dediginiz gibi yaptım fakat yeni bir excel sayfası açtığımda makro kısmı boş geliyor.

alt+F8'e basarak Makroları açmayı denedinizmi?alt+F8

 

[sakoz]

evet denedim fakat orası boş geliyor.

 

[Orion1]

evet denedim fakat orası boş geliyor.

Araçlar ==> eklentiler 'e bakın dosya orda listelenmişmi .Listelenmişse yanındaki kutucupu çek edin.Eğer listelenmemişse dosyayı eklenti olarak kaydetmemişsiniz.Önceki mesajımı tekrardan iyice okuyup ona göre tekrardan deneyin.

 

[sakoz]

Evet listede var ve yanındada check işareti var.Ayrıca VB editorden bakıncada makro görünüyor.Fakat run makro yapmak istediğimde makro kısmı boş geliyor.

 

[Orion1]

Evet ayni sorun bendede var.Bende çalıştıramadım.
VBE'de gözüküyor ama run makroda gözükmüyor.
Üstadlar buna ne derler ?Yardım..!!!:yardim: :yardim: :yardim:

 

[gegiç83]

Merhaba arkadaşlar,

Benim iade isminde bir çalışma dosyam var. İçerisinde
Genel sayfası : Tüm oranlarda iade dosyası var
% 1 : Genel sayfası içerisinden yalnızca %1'lik satışlar olmalı
% 8 : Genel sayfası içerisinden yalnızca %1'lik satışlar olmalı
% 18 : Genel sayfası içerisinden yalnızca %1'lik satışlar olmalı

Ama bir türlü yapamadım. yalnız bir ricam var; 610 hesaptakiler 610 hesaplara, 191 hesaptakiler 191 hesaplar yazılacak ( Tarih, Açıklama ve Tarih ).
Bana yardımcı olursanız sevinirim.


İyi çalışmalar,
Zeynel SENAN

 

[Recep İpek]

Eklenti dosyası farklı bir çalışma kitabı olduğu için bu dosyanın makroları bu kitaba aitdir.
Dikkat ederseniz VBE ekranında eklenti dosyasına tıklarsanız makronun burada olduğunu göreceksiniz.
Dolayısıyla makroyu buradan çalıştırmanız yeterli olacaktır.

.xla dosyasından .xls dosyasındaki bir sayfayı seçip işlem yaptırmak içinse bu sayfaların set edilmesi yani tanımlanması gerekmekdir.

Kodlarınızı aşağıdaki şekilde değiştirirseniz makro doğru çalışacaktır.

Sub aktar()
Dim i As Long
[color=blue]Set wb1 = Workbooks("ornek2.xls").Worksheets("PIVOT")
Set wb2 = Workbooks("ornek2.xls").Worksheets("DATA")[/color]
wb1.Select
wb2.Range("H2:I65536").ClearContents
For i = 2 To wb1.Cells(65536, "E").End(xlUp).Row
If wb1.Cells(i, "E").Value <> "" Then
    Set c = wb2.Range("A:A").Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
        For j = c.Row To wb2.Cells(65536, "A").End(xlUp).Row
            If wb2.Cells(j, "B").Value = wb1.Cells(i, "B").Value _
            And wb2.Cells(j, "C").Value = wb1.Cells(i, "C").Value Then
                wb2.Cells(j, "H").Value = wb1.Cells(i, "E").Value
                wb2.Cells(j, "I").Value = wb1.Cells(i, "F").Value
                GoTo atla
            End If
        Next j
atla:
    End If
End If
Next i
Set wb1 = Nothing
Set wb2 = Nothing
Set c = Nothing
MsgBox "A K T A R M A     T A M A M L A N D I..!!", vbOKOnly, Application.UserName
End Sub

ornek2.xls dosyasından .xla dosyasındaki bu makroyu direk çalıştırmak içinse,

Sub xlaMakroÇalıştır()
Application.Run ("ornek2.xla!aktar")
End Sub

kodlarını kullanabilirsiniz.

 

[Orion1]

Merhabalar.
Sayın hocam değerli bilgileriniz için teşekkür ederim.
İyi geceler.