Alun Hewinson AlunHewinson

## index.html
<!doctype HTML>
<meta charset = 'utf-8'>
<html>
  <head>

    <script src='//ramnathv.github.io/rCharts/libraries/widgets/polycharts/js/polychart2.standalone.js' type='text/javascript'></script>

    <style>
    .rChart {
      display: block;

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                AlunHewinson
                / keybase.md
            
            
              Created
              February 17, 2015 10:59
            
          
    Keybase proof

I hereby claim:

I am alunhewinson on github.
I am alunhewinson (https://keybase.io/alunhewinson) on keybase.
I have a public key whose fingerprint is 3151 4137 5556 62CA EE48  7C56 7E98 3241 3EE7 B175

To claim this, I am signing this object:

  
## Excel VBA to find next permutation or list of permutations
Function NextPerm(ByVal strIndex As String)
    nChanger = FindChanger(strIndex)
    If nChanger = 0 Then
        NextPerm = SortAscending(strIndex)
        Exit Function
    End If
    strNextStart = Left(strIndex, nChanger - 1)
    strNextEnd = StepEndUp(Mid(strIndex, nChanger))
    NextPerm = strNextStart & strNextEnd
End Function

## Excel VBA paste special values from multiple sources
Sub PasteValues()
    On Error GoTo txt
    Selection.PasteSpecial Paste:=xlPasteValues
    Exit Sub
txt:
    If ActiveCell.MergeCells Then
        Application.DisplayAlerts = True
        Dim DObj As MSForms.DataObject
        Dim s As String
        Set DObj = New MSForms.DataObject
	<!doctype HTML>
	<meta charset = 'utf-8'>
	<html>
	<head>

	<script src='//ramnathv.github.io/rCharts/libraries/widgets/polycharts/js/polychart2.standalone.js' type='text/javascript'></script>

	<style>
	.rChart {
	display: block;
	Function NextPerm(ByVal strIndex As String)
	nChanger = FindChanger(strIndex)
	If nChanger = 0 Then
	NextPerm = SortAscending(strIndex)
	Exit Function
	End If
	strNextStart = Left(strIndex, nChanger - 1)
	strNextEnd = StepEndUp(Mid(strIndex, nChanger))
	NextPerm = strNextStart & strNextEnd
	End Function
	Sub PasteValues()
	On Error GoTo txt
	Selection.PasteSpecial Paste:=xlPasteValues
	Exit Sub
	txt:
	If ActiveCell.MergeCells Then
	Application.DisplayAlerts = True
	Dim DObj As MSForms.DataObject
	Dim s As String
	Set DObj = New MSForms.DataObject