Macro untuk Excel UserForm input pembayaran

Last updated on March 16th, 2021 at 06:07 pm

Setelah pak Adi mendesign Excel UserForm melalui Visual Basic Editor, selanjutnya pak Adi membuat kode kode macro Excel untuk UserForm-nya yang diterapkan pada masing masing kontrol.

Sebelum melakukan Copy-Paste, pastikan Visual Basic of Applications editor-nya ada di UserForm dengan cara : pada window Project – VBAProject, klik(kanan) modul frmBayar, lalu klik(kiri) ViewCode. Seperti yang terlihat pada gambar-1 dibawah ini.

kode macro excel userform di visual basic editor
gambar-1

Baru copy kode macro dibawah ini, lalu paste di bagian kanan VB Editor-nya sehingga hasilnya seperti terlihat pada gambar-1 diatas.

Dim rgNama

Private Sub UserForm_Initialize()
Application.EnableEvents = False
ListNota.MultiSelect = 2
ListNota.Font.Size = 9
ListBlnThn.ColumnWidths = 75

With Sheets("PDHD").PivotTables("ptPDHD")
.PivotCache.Refresh
.PivotFields("BlnThn").ClearAllFilters
.PivotFields("NAMA").ClearAllFilters
.PivotFields("NAMA").DrillTo "NAMA"
End With

Call PD_Click

If CDbl(Range("C4").Value) < CDbl(Date) Then
    Range("C4").Value = Format(Date, "dd mmm yy")
    Range("E7:F1000").ClearContents
End If

Application.EnableEvents = True
End Sub

Private Sub PD_Click()
Application.EnableEvents = False
CARI.Value = "": CARI.SetFocus
ListBlnThn.Clear: ListNota.Clear
LblSum = 0
PD.BackColor = &HC0C0FF 'aktif
HD.BackColor = &H8000000F& '&H8000000F
With Sheets("PDHD").PivotTables("ptPDHD")
.PivotFields("POS").DataRange.Value = "PD"
Set rgNama = .PivotFields("NAMA").DataRange
End With
Call PopListNama
Application.EnableEvents = True
End Sub

Private Sub HD_Click()
Application.EnableEvents = False
CARI.Value = "": CARI.SetFocus
ListBlnThn.Clear: ListNota.Clear
LblSum = 0
HD.BackColor = &HC0C0FF '&H8000000F 'aktif
PD.BackColor = &H8000000F&
With Sheets("PDHD").PivotTables("ptPDHD")
.PivotFields("POS").DataRange.Value = "HD"
Set rgNama = .PivotFields("NAMA").DataRange
End With
Call PopListNama
Application.EnableEvents = True
End Sub

Private Sub RESET_Click()
Range("B7:F1000").ClearContents
Call PD_Click
End Sub

Private Sub CARI_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Application.EnableEvents = False
CARI.Value = ""
Application.EnableEvents = True
End Sub

Private Sub CARI_Change()
    Dim MyList As Variant, i As Long
    MyList = Application.Transpose(rgNama)
    With ListNama
        If CARI.Value = "" Then
            .List = MyList
        Else
            .Clear
            For i = LBound(MyList, 1) To UBound(MyList, 1)
                If LCase(MyList(i)) Like "*" & LCase(CARI.Value) & "*" Then .AddItem MyList(i)
            Next i
        End If
    End With
If ListNama.ListCount = 1 Then ListNama.Selected(0) = True
End Sub

Private Sub ListNama_Click()
Application.EnableEvents = False
Application.ScreenUpdating = False
With Sheets("TABEL").PivotTables("ptBayar")
.PivotFields("BlnThn").ClearAllFilters
.PivotFields("NAMA").DataRange.Value = Me.ListNama.Value
End With
Me.Caption = ListNama
Call PopListNota
Call PopListBlnThn
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Private Sub ListBlnThn_Click()
With Sheets("TABEL").PivotTables("ptBayar").PivotFields("BlnThn")
    .ClearAllFilters
    If ListBlnThn.Value <> "ALL" Then
    .PivotFilters.Add Type _
        :=xlSpecificDate, Value1:=ListBlnThn.Value
    End If
End With
Call PopListNota
End Sub

Private Sub ListNota_Change()
Dim i As Long, dblSum As Double, dblTotal As Double, cek As Boolean
    
    'set boolean check to false
    cek = False
    dblTotal = 0
    dblSum = 0
    dblCount = 0
    
    'iterate through listbox total items
    '(listbox index starts at 0 and goes up)
    For i = 0 To Me.ListNota.ListCount - 1
    
        'Add each item together and get a total
        dblTotal = dblTotal + Me.ListNota.List(i, 1)
        
        'Check if the item is selected or not
        If Me.ListNota.Selected(i) Then
        
            'set our boolean/check to true
            cek = True
            
            'Add only selected items together
            dblSum = dblSum + Me.ListNota.List(i, 1)
            dblCount = dblCount + 1
        End If
        
    Next i
    
    'Check our boolean value
    If cek = False Then
        
        'Change caption to the selected sum values
        Me.LblSum.Caption = Format(dblTotal, "#,##0")
        
    Else
    
        'Change caption to all of the added values (if no items selected)
        Me.LblSum.Caption = Format(dblSum, "#,##0")
        
    End If
End Sub

Private Sub PindahNotaSemua_Click()
If ListNota.ListCount = 0 Then Exit Sub
cntListNota = ListNota.ListCount

If Application.CountA(Range("B:B")) + ListNota.ListCount > 80 Then _
    MsgBox "Jumlah nota untuk di input udah mencapai limit": Exit Sub
Set c = Range("B100000").End(xlUp).Offset(1, 0)
c.Resize(ListNota.ListCount, ListNota.ColumnCount).Value = ListNota.List
Set c = Range("E200").End(xlUp).Offset(1, 0)
c.Value = ListNama.Value
c.Offset(0, 1).Value = Format(-LblSum, "#,##0")
End Sub

Private Sub PindahNotaPilih_Click()
If ListNota.ListCount = 0 Then Exit Sub
If Application.CountA(Range("B:B")) > 50 Then _
    MsgBox "Jumlah nota untuk di input udah mencapai limit": Exit Sub
Set c = Range("B100000").End(xlUp).Offset(1, 0)
        For i = 0 To ListNota.ListCount - 1
            If ListNota.Selected(i) Then
                c.Value = ListNota.List(i)
                c.Offset(0, 1).Value = ListNota.List(i, 1)
                Set c = c.Offset(1, 0)
            End If
        Next i
Set c = Range("E200").End(xlUp).Offset(1, 0)
c.Value = ListNama.Value
c.Offset(0, 1).Value = Format(-LblSum, "#,##0")
End Sub

Private Sub PindahNotaAbai_Click()
If ListNota.ListCount = 0 Then Exit Sub
If Application.CountA(Range("B:B")) > 50 Then _
    MsgBox "Jumlah nota untuk di input udah mencapai limit": Exit Sub
NilaiBayar = Application.InputBox("Masukkan total nilai pembayaran-nya", Type:=1)

Application.EnableEvents = False

rngNilai = ListNota.List
hitung = 0

jmlnota = UBound(rngNilai)
For i = 0 To UBound(rngNilai)
X = rngNilai(i, 1)
If X < 0 Then nilai = -X Else nilai = X
hitung = hitung + nilai
If hitung > NilaiBayar Then
selisih = hitung - NilaiBayar
    If X < 0 Then
    X = X + selisih
    Else
    X = X - selisih
    End If
Set c = Range("B200").End(xlUp).Offset(1, 0)
c.Value = rngNilai(i, 0)
c.Offset(0, 1).Value = X
Set c = Range("E200").End(xlUp).Offset(1, 0)
c.Value = ListNama.Value
c.Offset(0, 1).Value = Format(NilaiBayar, "#,##0")
Exit Sub
Else
Set c = Range("B200").End(xlUp).Offset(1, 0)
c.Value = rngNilai(i, 0)
c.Offset(0, 1).Value = X
End If
Next
Application.EnableEvents = True
End Sub

Sub PopListNama()
    With ListNama
        .Clear
        If rgNama.Rows.Count > 1 Then
        .List = Application.Transpose(rgNama)
        Else
        .AddItem Sheets("PDHD").Range("A6").Value
        End If
    End With
End Sub

Sub PopListBlnThn()
ListBlnThn.Clear
With Sheets("TABEL").PivotTables("ptBayar")
.PivotFields("BlnThn").ClearAllFilters
Set rg = .PivotFields("BlnThn").DataRange
End With

With Me.ListBlnThn
If Application.CountA(rg) = 1 Then _
    .AddItem Format(rg(1, 1).Value, "mmmm yy"): Exit Sub
.AddItem "ALL"
For Each cell In rg.SpecialCells(xlCellTypeConstants)
.AddItem Format(cell.Value, "mmmm yy")
Next
End With
End Sub

Sub PopListNota()
ListNota.Clear
With Sheets("TABEL").PivotTables("ptBayar")
Set rg = .PivotFields("NOTA").DataRange
End With

With ListNota
    .Clear
    .ColumnHeads = False
    .ColumnCount = 2
    .Width = 150
    .ColumnWidths = "75,65"

For Each cell In rg
        .AddItem cell
        .List(.ListCount - 1, 1) = Format(cell.Offset(, 1), "#,##0")

Next cell
End With

Call ListNota_Change
End Sub

Private Sub InputKeData_Click()
Application.EnableEvents = False
Set sby = Sheets("BAYAR")
Set sdt = Sheets("DATA")
If sby.Range("c4").Value = "" Or sby.Range("b7").Value = "" Then Exit Sub
Set rgNota = sby.Range("b7", sby.Range("b6").End(xlDown))
cnt = rgNota.Rows.Count
Set rgKopi = sby.Range("AA7").Resize(cnt, 13)
Set rgPaste = sdt.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Resize(cnt, 13)
rgPaste.Value = rgKopi.Value

'tandain nota yang lunas
Set area = sdt.Range("C:C")
Set hitung = sdt.Range("J:J")
    For Each cell In rgNota
        NOTA = cell.Value
        jml = WorksheetFunction.SumIf(area, NOTA, hitung)
        If Round(jml, 0) = 0 Then
        With area
        .Replace NOTA, True, xlWhole, , False, , False, False
        .SpecialCells(xlConstants, xlLogical).Offset(, 11).Value = Format(Date, "yymm") & "LUNAS"
        .Replace True, NOTA, xlWhole, , False, , False, False
        End With
        End If
    Next cell

Sheets("PDHD").PivotTables("ptPDHD").PivotCache.Refresh

'tampilkan pesan bahwa transaksi bayar telah masuk data
frmBayar.Hide
sdt.Select
rgPaste.Select
ActiveWindow.ScrollRow = ActiveCell.Row
MsgBox "Transaksi pembayaran sudah masuk ke data"

sby.Select
sby.Range("b7:c1000").ClearContents
sby.Range("b7").Select

nm = ListNama.Value
Call PD_Click
Set c = rgNama.Find(nm, lookat:=xlWhole)
If Not c Is Nothing Then ListNama.Value = nm
frmBayar.Show
Application.EnableEvents = True
End Sub

Sub setUserFormControl()
With frmBayar
.Frame1.Height = 150
.Frame1.Width = 150
.Frame1.Top = 12
.Frame1.Left = 12
.Frame2.Height = 222
.Frame2.Width = 174
.Frame2.Top = 12
.Frame2.Left = 174
.InputKeData.Height = 24
.InputKeData.Width = 156
.InputKeData.Top = 198
.InputKeData.Left = 12
.PindahNotaAbai.Height = 24
.PindahNotaAbai.Width = 156
.PindahNotaAbai.Top = 174
.PindahNotaAbai.Left = 12

With .Frame1
.PD.Height = 24
.PD.Width = 30
.PD.Top = 18
.PD.Left = 12
.HD.Height = 24
.HD.Width = 30
.HD.Top = 18
.HD.Left = 42
.CARI.Height = 16.2
.CARI.Width = 64.25
.CARI.Top = 48
.CARI.Left = 72
.ListNama.Height = 66.1
.ListNama.Width = 124.2
.ListNama.Top = 66.6
.ListNama.Left = 12
.RESET.Height = 24
.RESET.Width = 66
.RESET.Top = 18
.RESET.Left = 72
End With

With .Frame2
.ListBlnThn.Height = 54.05
.ListBlnThn.Width = 80
.ListBlnThn.Top = 12
.ListBlnThn.Left = 78
.ListNota.Height = 89.4
.ListNota.Width = 145.2
.ListNota.Top = 72
.ListNota.Left = 12
.LblSum.Height = 24
.LblSum.Width = 72
.LblSum.Top = 24
.LblSum.Left = 12

.PindahNotaPilih.Height = 24
.PindahNotaPilih.Width = 74
.PindahNotaPilih.Top = 180
.PindahNotaPilih.Left = 84

.PindahNotaSemua.Height = 24
.PindahNotaSemua.Width = 74
.PindahNotaSemua.Top = 180
.PindahNotaSemua.Left = 12
End With

End With
End Sub

Selanjutnya, pada window Project – VBAProject, klik(kanan) modul Sheet6 (BAYAR), lalu klik(kiri) ViewCode. Akan tampil halaman kosong di bagian kanan-nya. Kopi kode macro dibawah ini, lalu paste di halaman kosong modul Sheet6 (BAYAR) tsb.

Private Sub Worksheet_Activate()
Call tmpBayar
frmBayar.Show vbModeless
End Sub

Private Sub Worksheet_Deactivate()
 For Each uf In VBA.UserForms
 If TypeOf uf Is UserForm Then Unload uf
 Next uf
End Sub

Sub tmpBayar()
Application.EnableEvents = False
With Sheets("BAYAR")
Set rg = .Range("AA7:AA106")
rg.Offset(0, 0).Formula = "=$C$4"
rg.Offset(0, 1).Formula = "=B7"
rg.Offset(0, 2).Formula = "=VLOOKUP(AB7,ListNotaNonLunas,2,FALSE)"
rg.Offset(0, 3).Value = "KAS"
rg.Offset(0, 4).Formula = _
"=IF(LEFT(AB7,1)=""P"",""PD"",""HD"")"
rg.Offset(0, 8).Formula = "=-C7"
rg.Offset(0, 10).Formula = _
"=IF(AE7=""PD"",""DEBET"",""KREDIT"")"
rg.Offset(0, 11).Formula = _
"=DATEVALUE(CONCATENATE(""01-"",MID(AB7,6,2),""-"",MID(AB7,4,2)))"
End With
Application.EnableEvents = True
End Sub

Dan yang terakhir, di window Project – VBAProject, pak Adi memakai cara lain dalam membuka halaman untuk kode dari modul yang di inginkan, yakni cukup dengan double-click modul-nya. Dalam hal ini, pak Adi men double-click modul Sheet2 (DATA), akan tampil halaman kosong di bagian kanan-nya. Kopi kode macro dibawah ini, lalu paste pada halaman kosong modul Sheet2 (DATA) tsb.

Private Sub Worksheet_Activate()
With Sheets("DATA")
.Range("B1:N1").AutoFilter
End With
End Sub

Private Sub Worksheet_Deactivate()
With Sheets("DATA")
.AutoFilterMode = False
End With
End Sub

Jadi ada dua cara untuk membuka halaman untuk menulis kode pada modul yang di inginkan. Terserah pengguna ingin pakai cara yang mana.

Untuk menampilkan UserForm yang baru dibuat, apabila halaman yang sedang aktif adalah halaman “BAYAR” namun tidak ada tampilan UserForm-nya, maka kita perlu meng-klik halaman lain, lalu kembali ke halaman “BAYAR”. Seperti animasi gambar-2 dibawah ini.

menampilkan userform di halaman excel
gambar-2

Selesai sudah pak Adi membuat kode kode macro untuk Excel UserForm input pembayaran-nya. Dan tuntas pula keseluruhan persiapan pak Adi dalam membuat laporan hutang piutang di Excel. Selanjutnya pak Adi tinggal menggunakan aplikasi tsb pada transaksi jual beli toko UD. MAJU JAYA dia.

Berikut keterangan mengenai kontrol kontrol yang terdapat di UserForm ini :

Klik tombol PD, box ListNama akan menampilkan daftar piutang dagang (PD) yakni para customer yang masih punya hutang. Klik tombol HD, daftar hutang dagang (HD), yakni para supplier yang pak Adi masih berhutang ke mereka akan ditampilkan di box ListNama. Seperti yang terlihat pada animasi gambar-3 dibawah ini.

Tombol Customer dan Supplier
gambar-3

Apabila kita klik salah satu nama di box ListNama, maka di box ListBlnThn akan ditampilkan Bulan dan Tahun apa saja nota nota si nama di klik tsb yang belum dibayar.

Di sebelah kiri box ListBlnThn, akan terlihat jumlah total hutang si nama yang di klik tsb, sedangkan di box ListNota tampil semua invoice invoice (nomor nomor nota) beserta nilai per tiap invoice-nya.

memfilter nama dari piutang dagang ataupun hutang dagang untuk melihat invoice invoicenya.
gambar-4

Pada contoh animasi diatas, diketahui bahwa customer (piutang dagang) bernama Pak Adam punya hutang hanya pada nota nota Januari 2021 sebesar Rp 2.181.500. Pak Adi lama sekali tidak bayar bayar utangnya, sejak bulan Desember 2019 sebesar Rp 1.876.200, dlsb.

Selanjutnya, apabila salah satu item di box ListBlnThn di klik, maka box ListNama menampilkan daftar invoice terkait bulan yang di klik tsb. Sedangkan jumlah total hutang di bulan yang di klik tsb, tampil di sebelah kiri box ListBlnThn. Seperti pada animasi dibawah ini.

gambar-5

Pada animasi gambar-5 diatas, kita melakukan pencarian nama dengan mengetik nama yang kita cari di box CARI. DI animasi bisa kita lihat bahwa customer Inem mempunyai total hutang Rp 11.390.900 terdiri dari nota nota Februari 2020 dan Maret 2020. Hutang si Inem di bulan Februari 2020 adalah sebesar Rp 3.583.700 dan hutang Maret 2020 sebesar Rp 7.807.200.

Singkatnya, dalam hal seperti diatas, ini sama seperti saat kita melihat halaman PDHD. Beda hanya di perihal tampilan dan cara pem-filteran-nya saja.

Selanjutnya adalah mengenai tombol Ketik Nilai Bayar, Semua Nota dan Nota Dipilih. Fungsi masing masing tombol ini terkait dengan model pembayaran-nya, seperti yang sudah dibahas di part-5. Dimana apabila tombol tsb di klik, maka nomor nomor nota yang terdapat di box ListNota akan di kopi ke halaman BAYAR, dibawah header NOTA (kolom C) baris kosong yang terakhir.

Di halaman kedua pada topik ini, pak Adi akan test-run untuk mengetahui apakah kode kode macro untuk Excel UserForm yang selanjutnya berjalan dengan sesuai yang diharapkan.

744 replies on “Macro untuk Excel UserForm input pembayaran”

สล็อตออนไลน์เกมคาสิโนยอดนิยมนิรันดร เล่นง่าย แจ็คพอตแตกไวจำเป็นที่จะต้องที่ UFABET จ่ายจริง จ่ายเต็ม มีเกมให้เลือกเยอะแยะทั้งพนันบอล บาคาร่า ยิงปลา มาเว็บไซต์แห่งนี้เว็บเดียวโคตรคุ้ม สร้างรายได้ง่ายจบที่เว็บไซต์ UFABET ได้เลยครับผม

Aw, this was an extremely nice post. Spending some time and actual effort to produce a really good articleÖ but what can I sayÖ I procrastinate a lot and never manage to get nearly anything done.

Pretty section of content. I just stumbled upon your blog and in accession capital to assert that I get actually enjoyed account your blog posts.Any way I will be subscribing to your feeds and even I achievement you access consistently fast.

Hey There. I found your blog using msn. This is a very well written article. I will be sure to bookmark it and come back to read more of your useful information. Thanks for the post. I will definitely return.

Wonderful to fulfill you, my title is Jere. Managing people has been his job for some time and his salary has been really satisfying. His property is now in Indiana. Jogging is the thing I enjoy most.

You could definitely see your skills within the paintings you write.The world hopes for even more passionate writers such as you who aren’t afraid to say how they believe.Always go after your heart.Look into my blog … moonlightmining.com

Thanks for your personal marvelous posting!I quite enjoyed reading it, you might be a great author.I will always bookmark your blog and may come back from nowon. I want to encourage continue your great writing, have a nice afternoon!

Aw, this was an extremely good post. Spending some time and actual effort to produce a really good article… but what can I say… I hesitate a whole lot and don’t seem to get anything done.

It’s really a nice and helpful piece of info. I’m satisfied thatyou just shared this useful information with us. Please stayus up to date like this. Thank you for sharing. 0mniartist asmr

Very nice post and right to the point. I am not sure if this is truly the best place to ask but do you folks have any thoughts on where to get some professional writers? Thx

Hello! This is my first visit to your blog!We are a team of volunteers and starting a new project in acommunity in the same niche. Your blog provided us valuableinformation to work on. You have done a wonderful job!

A fascinating discussion is definitely worth comment.I believe that you ought to publish more about this topic, it may not be a taboo subject but typically people do not talk about such topics.To the next! Cheers!!

จริงๆเล่นมาหลายเว็บไซต์เลยจ๊ะขอรับ ส่วนใหญ่ก็จ่ายจริงนะครับ แต่ที่ต่างเป็นบางเว็บไซต์เวลาฝาก-ถอนควรต้องผ่านผู้แทนนะครับ ควรต้องแคปจอส่งให้บุคลากร ผมว่าป่วยเลย มี UFABET นี่แหละครับ ผมว่าระบบดีสุดเลย ฝากถอนอัตโนมัติทำเองได้เลยขอรับ

When I initially commented I clicked the “Notify me when new comments are added” checkbox and now each time a comment is added I get several e-mails with the same comment. Is there any way you can remove me from that service? Thanks a lot!

I don’t even know how I ended up here, but I thought thispost was good. I don’t know who you are but definitely you are going to a famous blogger if you are not already 😉 Cheers!

Hey there! This is my first visit to your blog! We are a collection of volunteersand starting a new initiative in a community in the same niche.Your blog provided us beneficial information to work on. You havedone a wonderful job!

Hey! This post could not be written any better! Reading through this post reminds me of my previous room mate! He always kept chatting about this. I will forward this post to him. Fairly certain he will have a good read. Thanks for sharing!

I’m not sure where you’re getting your info, but greattopic. I needs to spend some time learning more or understanding more.Thanks for great information I was looking for this info for my mission.

Thank you, I have just been looking for info about this subject for a while and yoursis the best I have came upon till now. However, what concerning the conclusion? Are you sure in regards to the source?My blog post – clubriders.men

Hi my family member! I wish to say that this post is amazing,great written and include almost all significant infos.I would like to peer extra posts like this.my blog :: Keto 3DS Reviews

Very interesting points you have observed , thankyou for putting up. „Brass bands are all very well in their place – outdoors and several miles away.” by Sir Thomas Beecham.

I am extremely impressed with your writing skills as well as with the layout on your blog. Is this a paid theme or did you modify it yourself? Either way keep up the excellent quality writing, it’s rare to see a nice blog like this one these days.

What’s Taking place i’m new to this, I stumbledupon this I have discovered It positively helpfuland it has helped me out loads. I hope to contribute& aid other users like its aided me. Great job.

Having read this I thought it was rather informative. I appreciate you finding the time and energy to put poker this informative article together. I once again find myself spending way too much time both reading and leaving comments

Oh my goodness! Incredible article dude!Thanks, However I am having problems with your RSS.I don’t understand why I can’t subscribe to it.Is there anybody getting the same RSS issues? Anybody whoknows the answer can you kindly respond? Thanx!!

hi!,I like your writing very much! share we communicate more about your post on AOL? I require an expert on this area to solve my problem. Maybe that’s you! Looking forward to see you.

Oh my goodness! Incredible article dude! Thanks, However I am experiencing troubles with your RSS. I don’t know why I cannot join it. Is there anybody getting the same RSS issues? Anyone that knows the solution can you kindly respond? Thanks!

Hey there! I’m at work surfing around your blog from my new iphone 3gs! Just wanted to say I love reading your blog and look forward to all your posts! Keep up the great work!

Normally I do not learn post on blogs, however I would like to say that this write-up very forced me to take a look at anddo it! Your writing taste has been surprised me. Thanks, very nicearticle.

Howdy! Do you know if they make any plugins to assist with SEO?I’m trying to get my blog to rank for some targeted keywords but I’m not seeing very good results.If you know of any please share. Thanks!

Do you have a spam issue on this blog; I also am a blogger, and Iwas wanting to know your situation; we have developed some nice methods and we are lookingto trade strategies with others, please shoot me an e-mail ifinterested.

Good day! Do you know if they make any plugins to assist with Search Engine Optimization? I’m trying to get my blog to rank for some targeted keywordsbut I’m not seeing very good gains. If you know of any please share.Kudos!

Hi there, just became aware of your blog through Google, and found that it’s really informative.I’m going to watch out for brussels. I’ll appreciate if you continuethis in future. Numerous people will be benefited from yourwriting. Cheers!

Good blog! I really love how it is simple on my eyes and the data are well written. I am wondering how I might be notified whenever a new post has been made. I’ve subscribed to your feed which must do the trick! Have a nice day!

When I originally commented I clicked the “Notify me when new comments are added” checkbox and now each time a comment is added I get three emails with the same comment. Is there any way you can remove people from that service? Thanks a lot!

Great post. I was checking constantly this blog and I’m impressed!Extremely helpful info specifically the last part 🙂 I care for suchinfo much. I was looking for this certain information for a very longtime. Thank you and good luck.

Oh my goodness! an amazing article dude. Thank you However I am experiencing issue with ur rss . Don’t know why Unable to subscribe to it. Is there anyone getting identical rss problem? Anyone who knows kindly respond. Thanks

Hey, you used to write wonderful, but the last few posts have been kinda boring¡K I miss your tremendous writings. Past several posts are just a little bit out of track! come on!

Very nice post. I just stumbled upon your blog and wanted to say that I have really enjoyed surfing around your blog posts. After all I?ll be subscribing to your rss feed and I hope you write again soon!

wonderful post, very informative. I ponder why the other experts of this sector don’t understand this.You should continue your writing. I’m sure, you havea huge readers’ base already!

Thanks for one’s marvelous posting! I quite enjoyed reading it,you are a great author. I will make sure to bookmark your blog and definitely will come back from now on. Iwant to encourage yourself to continue your great work, have a nice morning!

La suscripción se basa en el sistema de puntos, básicamente estás comprando puntos para usarlos cuando te suscribes. AKA puedes parar en cualquier momento (¡sólo coge un montón de puntos y vete si quieres!). 

I blog often and I genuinely thank you for your information. This article has truly peaked my interest. I’m going to book mark your blog and keep checking for new details about once per week. I subscribed to your Feed too.

I have to be able to voice my passion regarding your kindness giving help to those people of which needs to have guidance on this kind of important matter.

When I originally commented I clicked the “Notify me when new comments are added” checkbox and now eachtime a comment is added I get four emails with the same comment.Is there any way you can remove people from that service?Appreciate it!

Howdy! I know this is kinda off topic but I was wondering ifyou knew where I could locate a captcha plugin for mycomment form? I’m using the same blog platform as yours and I’m having problemsfinding one? Thanks a lot!

hello!,I love your writing so so much! sharewe keep up a correspondence more approximately your article on AOL?I need an expert on this area to solve my problem. May be that is you!Taking a look forward to see you.

I was ѕuggested thiѕ ԝebsіte by means of my cousin. I’m now not sure whetherthis submit is written by way of him as nobody eⅼse knowsuch detailed approximately my tr᧐uble. Y᧐u are amazing!Thankѕ!My blog post :: daftar gboslot

Thanks , I’ve not too long ago been seeking information regarding this topic for many years and yours is the greatest I’ve found out to date. But, How about the summary? Have you been guaranteed concerning the resource?

I ddo consider all of thee concepts you have presented toyour post. They’re really convincing and will certainly work.Still, the posts are too quick for newbies. Could you please lengthen them a liuttlefrom next time? Thanks for the post.

Pretty section of content. I just stumbled upon your blog and in accession capital to assert that I acquire actually enjoyed account your blog posts. Anyway I’ll be subscribing to your augment and even I achievement you access consistently fast.

Hi, I do believe this is an excellent blog. I stumbledupon it 😉 I will return once again since i have bookmarked it. Money and freedom is the greatest way to change, may you be rich and continue to guide others.

I’m in a band wellbutrin annual sales Mr Cable believes the BoE has held back small business lending by demanding banks hold onerous levels of capital as a cushion against further shocks, a view shared by George Osborne, chancellor.

I don’t even know how I ended up here, butI thought this post was good. I do not know whoyou are but definitely you are going to a famous blogger if you aren’t already 😉 Cheers!

Good day! Do you know if they make any plugins to assistwith Search Engine Optimization? I’m trying to get my blog to rank for some targeted keywords but I’m not seeing very good gains.If you know of any please share. Thank you!

Aw, this was an extremely good post. Finding the time and actual effort to create a top notch articleÖ but what can I sayÖ I put things off a lot and don’t manage to get nearly anything done.

A motivating discussion is worth comment. I do think that you should publish more on this topic, it may not be a taboo subject but usually folks don’t speak about such subjects. To the next! Many thanks!!

What’s Going down i am new to this, I stumbled upon this I have found It positively useful and it has helped me out loads. I hope to contribute & aid different users like its helped me. Good job.

Hi there, just became alert to your blog through Google, and found that it is truly informative. I am gonna watch out for brussels. I will appreciate if you continue this in future. Numerous people will be benefited from your writing. Cheers!

It’s truly very complicated in this activelife to listen news on TV, therefore I simply use internet for that reason, andobtain the hottest news.

F*ckin’ remarkable issues here. I’m very satisfied to look your article. Thanks a lot and i am having a look forward to touch you. Will you please drop me a mail?

Excellent post. I was checking constantly this blog and I am impressed! Extremely helpful information specially the last part 🙂 I care for such information much. I was looking for this particular info for a very long time. Thank you and good luck.

คลิปหลุด เว็บโป๊ใหม่ คลิปหลุดนักศึกษา สาวน่ารัก คลิปโป๊ javhubpremium ไลฟ์สด mliveหนังโป๊มาใหม่ทุกวันjav

Greetings! I know this is kind of off topic but I was wondering if you knew whereI could locate a captcha plugin for my comment form? I’m using thesame blog platform as yours and I’m having trouble finding one?Thanks a lot!

Usually I do not learn post on blogs, but I wish to say that this write-up very pressured me to try and do it! Your writing taste has been amazed me. Thank you, very great article.

Thank you for your sharing. I am worried that I lack creative ideas. It is your article that makes me full of hope. Thank you. But, I have a question, can you help me?

Hey There. I found your blog using msn. This is a very well
written article. I’ll make sure to bookmark it and come back to read more of your useful information. Thanks for the post.
I will definitely comeback.

Have you ever thought about creating an e-book
or guest authoring on other sites? I have a blog based upon on the same information you discuss and would love
to have you share some stories/information. I know my readers
would value your work. If you are even remotely interested, feel free to shoot me an email.

Pretty nice post. I just stumbled upon your weblog
and wished to say that I have truly enjoyed browsing your
blog posts. After all I’ll be subscribing to your feed and I
hope you write again soon!

Heya i’m for the first time here. I came across this board and I find
It really useful & it helped me out a lot. I hope to give something back and aid others like you helped me.

Thanks for another informative blog. The place else
could I am getting that kind of information written in such a perfect manner?
I’ve a undertaking that I’m simply now running on,
and I’ve been at the look out for such info.

Leave a Reply

Your email address will not be published. Required fields are marked *