[Yardım]  Makro userform'u kilitleme sorunu

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

Makro userform'u kilitleme sorunu

İleti#1)  osmanucel » 21 Mar 2020 21:14

Private Sub CommandButton1_Click()
Dim i As Long, _
sat As Long, _
Adet As Long, _
s1 As Worksheet, _
s2 As Worksheet, _
Hesap As String, _
BasTar As Date, _
BitTar As Date
Set s1 = Sheets("SATIŞ")
Set s2 = Sheets("FATURA")
s2.Select
Rows("4:" & Rows.Count).Clear
Range("B2").Value = TextBox1.Value
Range("C2").Value = TextBox2.Value
Range("D2").Value = TextBox3.Value
BasTar = Range("B2")
BitTar = Range("C2")
Hesap = Range("D2")
sat = Cells(Rows.Count, "A").End(3).Row
Application.ScreenUpdating = False
For i = 3 To s1.Cells(Rows.Count, "A").End(3).Row
If s1.Cells(i, "B") >= BasTar And s1.Cells(i, "B") <= BitTar And _
s1.Cells(i, "F") = Hesap Or s1.Cells(i, "F") = BorcAlacak Then
sat = sat + 1
Adet = Adet + 1
s1.Range("A" & i & ":N" & i).Copy Cells(sat, "B")
s1.Range("A" & i & ":N" & i).Font.Color = vbRed
End If
Next i
Application.ScreenUpdating = True
If Adet = 0 Then
MsgBox "Koşula Göre Aktarılacak Bilgi Bulamadım...."
Else
MsgBox Adet & " Adet Koşula Uyan Kayıt Aktarılmıştır..."
End If
Call ListView
End Sub
Bu kodlarla bilgileri getirmeye çalıştığımda userform kilitleniyor.çözemedim
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Makro userform'u kilitleme sorunu

İleti#2)  şahin » 21 Mar 2020 21:21

Örnek dosyanızı eklerseniz (özle veriler varsa kopyasını alıp verilerinizi silerek) üzerinde çalışmak daha kolay olu
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 926
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Makro userform'u kilitleme sorunu

İleti#3)  osmanucel » 21 Mar 2020 21:36

Fatura Userformu kilitleniyor.Sorunu çözemedim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Makro userform'u kilitleme sorunu

İleti#4)  ıslakates » 21 Mar 2020 21:54

Private Sub CommandButton1_Click()
içindeki şu alttaki satırı kaldır düzelir
Call ListView
Kullanıcı avatarı
ıslakates
Yeni Başlamış
 
Adı Soyadı:asa asax
Kayıt: 08 Eyl 2012 08:59
İleti: 38
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sivas

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

Cevap: Makro userform'u kilitleme sorunu

İleti#5)  osmanucel » 21 Mar 2020 21:56

Teşekkür ederim,sorun cözüldü.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Makro userform'u kilitleme sorunu

İleti#6)  şahin » 21 Mar 2020 22:49

Call ListView son satırındaki formu otomatik boyutlandırmadan kaynaklanıyor...
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 926
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Makro userform'u kilitleme sorunu

İleti#7)  şahin » 21 Mar 2020 22:51

Ekte

ERAY DEMİR ÇELİK.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 926
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Makro userform'u kilitleme sorunu

İleti#8)  osmanucel » 21 Mar 2020 23:26

Sub test()
Sayfa12.Range("F8,C10,K12,F15,M15,Z10") = ""
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E4:E" & Rows.Count)) Is Nothing Then
Range("B4:B" & Rows.Count).ClearContents
With Range("B4:B" & Cells(Rows.Count, "E").End(3).Row + 10)
.Formula = "=IF(E4="""",COUNTA(E$4:E4,1),COUNTA(E$4:E4,+1))"
.Value = .Value
End With
ElseIf Not Intersect(Target, Range("F4")) Is Nothing Then
On Error Resume Next
duseyara = WorksheetFunction.VLookup(Sayfa2.Range("F4"), Sayfa5.Range("B4:G" & Sayfa5.Rows.Count), 1, False)
If duseyara <> "" Then
Sayfa12.Range("E8") = duseyara
Sayfa12.Range("C10") = WorksheetFunction.VLookup(Sayfa11.Range("F4"), Sayfa7.Range("B4:G" & Sayfa5.Rows.Count), 2, False)
Sayfa12.Range("K12") = WorksheetFunction.VLookup(Sayfa11.Range("F4"), Sayfa7.Range("B4:G" & Sayfa5.Rows.Count), 3, False)
Sayfa12.Range("F15") = WorksheetFunction.VLookup(Sayfa11.Range("F4"), Sayfa7.Range("B4:G" & Sayfa5.Rows.Count), 4, False)
Sayfa12.Range("M15") = WorksheetFunction.VLookup(Sayfa11.Range("F4"), Sayfa7.Range("B4:G" & Sayfa5.Rows.Count), 5, False)
Sayfa12.Range("Z10") = WorksheetFunction.VLookup(Sayfa11.Range("F4"), Sayfa7.Range("B4:G" & Sayfa5.Rows.Count), 6, False)
ElseIf duseyara = "" Then
Sayfa12.Range("F8,C10,K12,F15,M15,Z10") = ""

End If
End If
End Sub
Sayfa12 ye,Sayfa11 deki isme göre Sayfa7 den bilgileri getirmek istiyorum ama Nerde hata var anlayamadım. Yarıdımcı olursanız sevinirim.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Makro userform'u kilitleme sorunu

İleti#9)  şahin » 22 Mar 2020 11:27

F4 hücresinde cari hesap adı var, F4 leri G4 olarak değişrip deneyin "Sayfa11.Range("F4")" >>Sayfa11.Range("G4")
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 926
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Makro userform'u kilitleme sorunu

İleti#10)  osmanucel » 22 Mar 2020 11:32

Değiştirdim ama yine olmadi.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Makro userform'u kilitleme sorunu

İleti#11)  osmanucel » 23 Mar 2020 15:33

Sayfa12 ye,Sayfa11 deki isme göre Sayfa7 den bilgileri getirmek istiyorum.Bu dosya zerine uyarlayabilirmiyiz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Makro userform'u kilitleme sorunu

İleti#12)  şahin » 23 Mar 2020 19:27

Makro ile halettim, formüldeki sorunda "fatura" sayfasındaki isim sonunda boşluk olduğu için hata veriyor..


ERAY DEMİR ÇELİK (2).rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 926
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Makro userform'u kilitleme sorunu

İleti#13)  osmanucel » 23 Mar 2020 19:30

Çok teşekkür ederim ilginize, sağol.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Makro userform'u kilitleme sorunu

İleti#14)  osmanucel » 23 Mar 2020 20:03

Arkadaşım kendime göre düzenledim mükemmel oldu teşekkürler.
Kullanıcı avatarı
osmanucel
Siteye Alışmış
 
Adı Soyadı:osman ucel
Kayıt: 03 Kas 2011 12:40
Konum: hatay dörtyol
Meslek: muhasebe
Yaş: 48
İleti: 101
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: bilisim11, erseldemirel2, firatgunay, Yandex[Bot] ve 4 misafir

Bumerang - Yazarkafe