karşıt inceleme tutanağı

[seyyah_08]

Slm ArkadaŞlar
Eklİ Dosyada Da GÖrÜldÜĞÜ Gİbİ Bİr Çok Fİrma Var Ve Bunlara Aylik Olarak KarŞit İnceleme Tutanaklari DÜzenlemek Zorundayim. Şu Anda YaptiĞim Hepsİnİn Bİlgİlerİnİ Teker Teker Kopyalayim YapiŞtiriyorum. Bİlİyorumkİ Bunun Tek TuŞla Yapilacak Şekİllerİ Vardir. Bunun İÇİn Sİzden Önerİler Ve Yardimlar Beklİyorum. Şİmdİden Çok TeŞekkÜr Edİyorum.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, sat As Long
If Intersect(Target, [C9]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
On Error GoTo hata
Range("B30:J65536").ClearContents
sat = 30
Set s1 = Sheets("kdv listesi")
For i = 3 To s1.Cells(65536, "A").End(xlUp).Row
    If LCase(Replace(Replace(Target.Value, "I", "ı"), "İ", "i")) = _
    LCase(Replace(Replace(s1.Cells(i, "C").Value, "I", "ı"), "İ", "i")) Then
    Cells(sat, "B").Value = s1.Cells(i, "A").Value
    Cells(sat, "C").Value = s1.Cells(i, "B").Value
    Cells(sat, "D").Value = s1.Cells(i, "F").Value
    Cells(sat, "E").Value = s1.Cells(i, "G").Value
    Cells(sat, "F").Value = s1.Cells(i, "H").Value
    Cells(sat, "H").Value = s1.Cells(i, "J").Value
    sat = sat + 1
    End If
Next i
hata:
Set s1 = Nothing
End Sub

 

[seyyah_08]

KarŞit İnceleme TutanaĞi

Slm ArkadaŞlar
GÖNDERMİŞ OLDUĞUNUZ DOSYADAN BEN BİRŞEY ANLAMADIM C9 SÜTUNU DİYORSUNUZ AMA OEAYA GİRİYORUM BİRŞEY YAPMIYOR.LÜTFEN DAHA AÇIKLAYICI OLURSANIZ ÇOK SEVİNİRİM.

 

[AS3434]

Sayın Orion2 nin gönderdiği dosyada firma isimlerini sildiğim için C9 hücresine yazılan değerler bulunamıyor.

Ama siz GERÇEK VERİLERİN olduğu dosya göndermekte ısrar ediyorsunuz.

Sayın Orion2 nin gönderdiği dosyada, KDV listesi sayfasında C D ve E sütunlarına verilerini girin.

 

[Orion1]

En son yolladığınız dosyaya incelerseniz.Karşıt inc. tutanağı sayfasındaki C9 hücresine yazdığınız firma ismi kdv listesi sayfasında C sütununda yok.Bulamadığı için bir şey yapmıyor.Şimdi bir combobox koydum.Oradan firma ismi seçip işlem yapabilirsiniz.Comboboxtan seçtiğiniz isim C9 hücresine yazılıyor.Ve combobox yazıcı sayfasında gözükmüyor.
Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Click()
Range("C9").Value = ComboBox1.Value
End Sub

Private Sub Worksheet_Activate()
Dim i As Long
Set s1 = Sheets("kdv listesi")
ComboBox1.Clear
For i = 3 To s1.Cells(65536, "C").End(xlUp).Row
    If WorksheetFunction.CountIf(s1.Range("C3:C" & i), s1.Range("C" & i).Value) = 1 Then
        ComboBox1.AddItem s1.Range("C" & i).Value
    End If
Next i
Set s1 = Nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, sat As Long
If Intersect(Target, [C9]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
On Error GoTo hata
Range("B30:J65536").ClearContents
sat = 30
Set s1 = Sheets("kdv listesi")
For i = 3 To s1.Cells(65536, "A").End(xlUp).Row
    If LCase(Replace(Replace(Target.Value, "I", "ı"), "İ", "i")) = _
    LCase(Replace(Replace(s1.Cells(i, "C").Value, "I", "ı"), "İ", "i")) Then
    Cells(sat, "B").Value = s1.Cells(i, "A").Value
    Cells(sat, "C").Value = s1.Cells(i, "B").Value
    Cells(sat, "D").Value = s1.Cells(i, "F").Value
    Cells(sat, "E").Value = s1.Cells(i, "G").Value
    Cells(sat, "F").Value = s1.Cells(i, "H").Value
    Cells(sat, "H").Value = s1.Cells(i, "J").Value
    sat = sat + 1
    End If
Next i
hata:
Set s1 = Nothing
End Sub

 

[seyyah_08]

orion 2 çok teşekkür ediyorum göstermiş olduğun hassasiyetten dolayı yanlız son göndermiş olduğun dosyayı bir türlü açamadım tekrar gönderirseniz sevinirim.

 

[Orion1]

orion 2 çok teşekkür ediyorum göstermiş olduğun hassasiyetten dolayı yanlız son göndermiş olduğun dosyayı bir türlü açamadım tekrar gönderirseniz sevinirim.

Dosyayı sıkıştırmadan ekledim .5 numaralı mesajdan indirebilirsiniz.

 

[seyyah_08]

kartşıt inceleme tutanağı

orion 2 yapmış olduğunuz çalışma çok işime yarayacak yanlız ben sayfayı açarken makroların imzalanması gerekiyor diye bir uyarı çıkıyor ve ben pek makroları bilmediğimden dolayı müdahale edemiyorum bana yardımcı olursanız çok sevinirim

 

[Orion1]

Makroları etkinleştirmeniz gerekiyor.
Bunun için Excel'i açın Araçlar==>Makro==>Güvenlik==>Güvenlik Düzeyi==>Düşük önerilmez'i seçip tamam'a tıkalayın.Excel'i kapatın.Artık Makrolar etkinleştirilmiş oldu.Şimdi Dosyanızı açabilirsiniz.

 

[emrex]

evren bey
ben listeyi farklı bir excel sayfasından almak istiyorum. makroyu nasıl düzenleyebilirim. Birde örnegin firma ünvanı yerine vergi sicil no kullanmak istiyorum.

 

[Orion1]

evren bey
ben listeyi farklı bir excel sayfasından almak istiyorum. makroyu nasıl düzenleyebilirim. Birde örnegin firma ünvanı yerine vergi sicil no kullanmak istiyorum.

Aşağıdaki kdv listesi yazan yere listeyi alacağınız sayfa ismini yazın.
Set s1 = Sheets("kdv listesi")

 

[emrex]

yanlız tamamen farklı bir excell dosyasından, farklı çalışma sayfalarından değil

 

[Orion1]

yanlız tamamen farklı bir excell dosyasından, farklı çalışma sayfalarından değil

aşağıdaki Deneme.xls yazan yere Kitap ismini ve kdv listesi yazan yere sayfa ismini yazınız.Her 2 dosyanında açık olması gerekiyor.

Set s1 = workbooks("Deneme.xls").Sheets("kdv listesi")

 

[emrex]

ben çok ugrasacam acemilik işte size zahmet bir göz atarmısınız.
Ben dosyada sadece vergi numarası yazıp işi bitirmek istiyorum. Liste 191.xls den alınacak

 

[emrex]

ben çok ugrasacam acemilik işte size zahmet bir göz atarmısınız.
Ben dosyada sadece vergi numarası yazıp işi bitirmek istiyorum. Liste 191.xls den alınacak

faturalar alacagımız kısım 69. satır yanlış işaretlemişim.

 

[Orion1]

Combobox'ta vergi numaralarını listeleme yapıyor.
Ekli dosyayı inceleyiniz.

 

[Orion1]

Dosyayı diğer dosyaya göre olacak şekilde düzenledim.Önceki mesajımdan indirebilirsiniz.

 

[emrex]

ikinci yüklediginiz dosya işime yarıyor ama önceki dosya fatura bilgilerini almıyordu 191.xls den


68. satıra bilgi girebilmek icin şu kısımı mı düzenliyecez

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, sat As Long
If Intersect(Target, [E22]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
On Error GoTo hata
Range("A68:J65536").ClearContents
sat = 68
Set s1 = Workbooks("191.xls").Sheets("191 mart07")
For i = 3 To s1.Cells(65536, "A").End(xlUp).Row
If LCase(Replace(Replace(Target.Value, "I", "ı"), "İ", "i")) = _
LCase(Replace(Replace(s1.Cells(i, "C").Value, "I", "ı"), "İ", "i")) Then
Cells(sat, "A").Value = s1.Cells(i, "B").Value
Cells(sat, "B").Value = s1.Cells(i, "C").Value
Cells(sat, "C").Value = s1.Cells(i, "G").Value
Cells(sat, "E").Value = s1.Cells(i, "H").Value
Cells(sat, "F").Value = s1.Cells(i, "J").Value
Cells(sat, "G").Value = s1.Cells(i, "K").Value
sat = sat + 1
End If
Next i
hata:
Set s1 = Nothing
End Sub

 

[emrex]

listeleme önemli değil aslında vergi numarasını elle yazdıktan sonra fatura bilgilerini alalım 68 satıra yeterli

 

[Orion1]

listeleme önemli değil aslında vergi numarasını elle yazdıktan sonra fatura bilgilerini alalım 68 satıra yeterli

Yolladığım 2 dosyayıda birden kullanmalısınız.
2 dosya birbirine formüllerle bağlı.Formüller 2 dosyadada var.