Her kayıtta yeni sayfa açarak kayıt

[abrenda]

ekli dosyamda girilen verileri içerisindeki sayfalara atılmasını sağlayabilirmisiniz ve cari kayıt denen bir sayfe sekmesi var her firma cari kaydımda yeni sekme cari kayıt sayfası açabilirmi

sorularımı ekli dosyamın içerisine yazdım.

teşekkürler
aslı

 

[abrenda]

LÜtfen Yardim Edİn GerÇekten Yardima İhtİyacim Var. 2000 Tane Fatura Gİrmem Lazim Pazartesİ Teslİm Edİcem YaklaŞik 1 Haftadir Burdayim Artik Bekleyecek Çok Fazla Zamanim Da Kalmadi.gerÇekten Yardim İstİyorum.

 

[Skorpiyon]

Sayın abrenda,

Ek'teki örneği inceleyiniz. 1. sorunuza cevap olur mu ?

 

[N.Ziya Hiçdurmaz]

Yanıt

Küçük bir çalışma yaptım bir inceleyiniz.

Private Sub CommandButton1_Click()
Dim FR, UR As Worksheet
Dim SON, SIRA, S As Integer
SON = Cells(65536, "B").End(3).Row + 1
Cells(SON, "B") = ComboBox1
Cells(SON, "C") = TextBox2
Cells(SON, "D") = ComboBox2
S = 5
For I = 4 To 16
Cells(SON, S) = Controls("TEXTBOX" & I)
S = S + 1
Next
For SIRA = 1 To Cells(65536, "B").End(3).Row - 1
Cells(SIRA + 1, "A") = SIRA
Next
'******************FR.033
Set FR = Sheets("FR.033")
SON = FR.Cells(65536, "B").End(3).Row + 1
FR.Cells(SON, "B") = ComboBox1
FR.Cells(SON, "C") = ComboBox2
S = 4
For I = 4 To 8
FR.Cells(SON, S) = Controls("TEXTBOX" & I)
S = S + 1
Next
For SIRA = 1 To FR.Cells(65536, "B").End(3).Row - 6
FR.Cells(SIRA + 6, "A") = SIRA
Next
'***************ÜRÜN
Set UR = Sheets("ÜRÜN")
SON = UR.Cells(65536, "A").End(3).Row + 1
UR.Cells(SON, "A") = ComboBox1
UR.Cells(SON, "B") = TextBox4
UR.Cells(SON, "C") = TextBox8
UR.Cells(SON, "D") = TextBox10
S = 5
For I = 12 To 15
UR.Cells(SON, S) = Controls("TEXTBOX" & I)
S = S + 1
Next
'**************
For I = 7 To Sheets.Count
If Sheets(I).Name = ComboBox1 Then GoTo ATLA
Next
Sheets("CARİ TAKİP").Copy AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = ComboBox1
[A1] = ComboBox1
Sheets("ANA").Select
ATLA:
For SAY = 7 To Sheets.Count
If Sheets(SAY).Name = ComboBox1 Then
Sheets(SAY).Select
End If
Next
SON = Cells(65536, "B").End(3).Row + 1
Cells(SON, "A") = TextBox4
Cells(SON, "B") = TextBox2
Cells(SON, "C") = TextBox11
Cells(SON, "D") = TextBox16
Sheets("ANA").Select
Unload Me
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
If ComboBox1 = "" Then
MsgBox "Önce silinecek veriyi seçmelisiniz", vbInformation
Exit Sub
End If
ActiveCell.EntireRow.Delete shift:=xlUp
MsgBox "Seçilen veri silinmiştir", vbInformation
End Sub
Private Sub ListBox1_Click()
Dim SUT As Integer
For SUT = 2 To Cells(65536, "B").End(3).Row
If ListBox1 = Cells(SUT, "B") Then
Cells(SUT, "B").Select
End If
Next
ComboBox1 = ActiveCell
TextBox2 = ActiveCell.Offset(0, 1)
ComboBox2 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 4)
For I = 5 To 16
Controls("TEXTBOX" & I + 1) = ActiveCell.Offset(0, I)
Next
End Sub
Private Sub TextBox17_Change()
Dim SUT As Integer
ListBox1.Clear
ListBox1.ColumnCount = 1
For SUT = 2 To Cells(65536, "B").End(3).Row
If Cells(SUT, "B") Like "*" & TextBox17 & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "B")
S = S + 1
End If
Next
End Sub

 

[hurkanpisirici]

bu siper bişey ziya bey ellerinize sağlık.

 

[abrenda]

Çokkkkkkkkk TeŞekkÜr Ederİm İnanin Çok GÜzel OlmuŞ EmeĞİnİze SaĞlik.

ÜrÜn Sayfasinin BaŞina Malzeme Adini Eklemeyİ UnutmuŞum. Onu Da Ekleyİp Aktarma İŞlemİnİn Oraya Da Yapilmasini SaĞlayabİlİrmİsİn

 

[abrenda]

Bİrde Carİ Kartlarin Sekmelerİ Bİraz Fazla OlacaĞindan Dolayi . Üserform Üzerİnden AÇma SaĞlayabİlİrmİsİnİz.

 

[N.Ziya Hiçdurmaz]

Yanıt

İstediğiniz ilaveler yapılmıştır

 

[abrenda]

Çok TeŞekkÜr Ederİm İnanin Çok BeĞendİm Ellerİnİze SaĞlik

 

[N.Ziya Hiçdurmaz]

Birşey değil Sayın abrenda

 

[abrenda]

ZİYA BEY

bir şey daha rica edebilirmiyim.

FİYAT DİYE BİR SAYFA SEKMESİ AÇTIM GİRDİĞİM ÜRÜNÜN AYLIK ORTALAMA FİYATININ ATILMASINI SAĞLAYABİLİRMİSİNİZ

martininruyasi@hotmail.com

 

[abrenda]

ekli

ekli dosyayı eklemeyi unuttum

 

[abrenda]

orda kimse varmı ?

 

[abrenda]

bana yardımcı olabilirmisiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Düzenleme yapılmıştır